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BBEEAffiE 


This publication contains information required by system and 
application programmers to use the data management access method 
functions of MVS/Extended Architecture Data Facility Product, 
Program Number 5665-XA2. It describes and defines the data 
management macro instructions—except for VSAM (virtual storage 
access method)-available in the assembler language. See 
"Related Publications" on page iv for the related VSAM 
publications. 


ORGANIZATION 


This publication is divided into these parts: 

• "Introduction" on page 1 defines and discusses macro 
instructions and the rules to be followed when when coding 
them, and the notational conventions used throughout the 
publication. 

• "Macro Instruction Descriptions" on page 8 defines and 
discusses the functions of each macro instruction and how 
each must be coded. The macro instructions are presented in 
alphabetic order. The standard form of each is described 
first, followed by the list and execute forms. The list and 
execute forms are available only for those macro 
instructions that pass parameters in a list. 

• Appendix A, "Status Information Following an Input/Output 
Operation" on page 192, defines and discusses the location, 
alignment, and description of the symbolic fields in the 
data event control block and the event control block. 

• Appendix B, "Data Management Macro Instructions Available by 
Access Method" on page 193, defines and discusses the macro 
instructions available for each of the data management 
access methods. 

• Appendix C, "Device Capacities" on page 194, defines and 
discusses device capacities as a guide to coding the block 
size and logical record length operands in the DCB macro 
instruction. 

• Appendix D, "DCB Exit List Format and Contents" on page 197, 
defines and discusses the format and content of the data 
control block exit list. 

• Appendix E, "Control Characters" on page 199, defines and 
discusses the control characters used to control spacing and 
skipping (printers) and stacker selection (card read punch 
or card punch). 

• Appendix F, "Data Control Block Symbolic Field Names" on 
page 202, defines and discusses the location, alignment, and 
description of the data control block symbolic field names. 

• Appendix G, "PDABD Symbolic Field Names" on page 219, 
defines and discusses the location, alignment, and 
description of the PDABD dummy control section. 

• "Glossary of Terms and Abbreviations" on page 220 defines 
and discusses the definitions of the terms and abbreviations 
used in this publication. 
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PREREQUISITE KNOWLEDGE 


To use this book you must have knowledge of assembler language 
as described in Assembler H Version 2 Application Programming: 

Language Reference , GC26-4037, and Assembler H Version 2 \ 

Application Programming: Guide , SC26-4036, and of job control 

language (JCL) as explained in MVS/Extended Architecture JCL 

User 1 s Guide , GC28-1351, and MVS/Extended Architecture JCL 

Reference , GC28-1352. 

If you know how to write assembler language programs and use job 
control statements, you can use this book and MVS/Extended 
Architecture Data Administration Guide , GC26-4140, to write 
programs that create and process data sets. 


REQUIRED PUBLICATIONS 

You should be familiar with the information presented in the 
following publications: 

• A s s , e m b 1 e,r_.,H.. V e rsiop JLAqb I 
Reference , GC26-4037 

• Assembler H Version 2 AppI icationPrugramming^:^Gulde , 
SC26-4036 

• M VS / Ex t e n d e dA r,,c.h.Lt£-. 5 .1 U ..^ . .G u ide, 

GC26-4140 

• MVS/Extended Architecture System Programming Library: 
Supervisor Services and Macro Instructions , GC28-1154 

• M V .. S/Extended ..Ax.cjiiJ:_ec_t r ,., g s....Gu id e, GC28-1351 

• MV S ZExt e ^ ^ .Rj-dfexfincg, GC28-1352 


RELATED PUBLICATIONS 


Hithin the text, references are made to the publications listed 
in the table below: 




Short Title 

Publication Title 

Order 

Number 

Assembler H V2 
Application 
Programming: 

Guide 

Assembler H Version 2 
Application Programming: 

.Guide 

SC26-4036 

Assembler H V2 
Application 
Programming: 
Language 

Reference 

Assembler. H Versio.n_2 
Application Programming: 

La 09 uag.e_R e f,er.e.P.g£ 

GC26-4037 

Checkpoint/Restart 
User f s Guide 

MVS/Extended Architecture 
Checkpoint/Restart User's 

Gui de 

GC26-4139 

Conversion 

Notebook 

.MVS/Extended .Architecture 
Conversion Notebook 

GC28-1143 

Data 

Administration 

Guide 

MVS/Extended Architecture 

Pa ta AdmlaisiratiorL-guid.^ 

GC26-4140 
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GC26-4267 


GA24-3936 


GC26-3846 


SH35-0Q61 


GA24-3612 


GA33-1541 
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Order 

Number 


Short Title 


OS/VS Mass 
Storage System 
CMSS) Extensions 
Services: 
Reference 


Programming 
Support for the 
IBM 3505 Card 
Reader and the 
IBM 3525 Card 
Punch 


RACF General 

Information 

Manual 


Service Aids 


Supervisor 
Services and 
Macro 

Instructions 


System Codes 


System—Data 
Administration 


System Generation 


System Macros and 
Facilities 


System Messages 


Utilities 


VSAM 

Administration 

Guide 


Publication Title 


OS/VS Mass Storage System 
(MSS) Extensions Services: 
Reference 


Programming Support for the 
IBM 3505 Card Reader and the 
!B.fi_3 5 .£ 5 _ C a _rd_E u.n_ch 


Resource Access Control 
Facility (RACF)? General 
Information Manual 


MVS/Extended Architecture 
System Programming Library: 
Service Aids 


MV SZ E xt e n d e d .&r ch itecture 

System Programming Library: 
Supervisor Services and 
Macro Instructions 


MVS/Extended Architecture 

M_ess^ _ S ystem 

Codes 


MVS/Extended Architecture 
System—Data Administration 


M-VS,/Ex t en_d, e d_„A r c hi ,t e,c, turg 

In s taJLl a tio g : .S yste m 

Generation 


MVS/Extended Architecture 
System Programming Library: 

Ma c ro s _ a n_ d. Fa ciL L t le s ,.^ 

Volumes 1 and 2 


MVS/Extended Architecture 
Message Library: System 
Messages ^ Volumes 1 and 2 


MV.S../.E, x ±en de d . A rc hi_tec±u.re 

Data Administration: 
Utilities 


MVS/Extended Architecture 
VSAM Administration Guide 


VSAM 

Administration: 
Macro Instruction 
Reference 


M VS/Extended Architecture 
VSAM Administration: Macro 
Instruction Reference 


SH35-0036 


GC21-5097 


GC28-0722 


GC28-1159 


GC28-1154 


GC28-1157 


GC26-4149 


GC26-4148 


GC28-1150 

and 

GC28-1151 


GC28-1376 

and 

GC28-1377 


GC26-4150 


GC26-4151 


GC26-4152 
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SUMMARY . OF ... CHANGES 


| RELEASE 3.0, JUNE1987 


| NEW PROGRAMMING SUPPORT 

This release provides virtual storage constraint relief by 
allowing VSAM control blocks to be obtained above 16M. Changes 
have been made to each of the three forms of the OPEN and CLOSE 
macros to allow for a new long form parameter list. The new 
long form allows for 31-bit addresses. The default is the 
standard form parameter list with 24-bit addresses. 

A new DCB exit list code, X f 13 f , has been added to RDJFCB to 
retrieve allocation information. Changes have been made to 
Appendix D, "DCB Exit List Format and Contents" to document the 
new exit list code. 


| CUSTOMIZATION RESTRUCTURE 

Detailed information on exception codes and status indicators 
from Appendix A, "Status Information Following an Input/Output 
Operation" on page 192 has been moved to Data Facility Product: 
Customization . 


| SERVICE CHANGES 


Minor technical changes have been made. In addition, 
documentation for the TYPE=J operand has been added to the 
descriptions of each of the three forms of the OPEN macro. 


REIIASJL^^ P ^ AUGUST J9 8 . 6 

Technical changes have been made concerning certain functions. 
These changes are reflected in sections of the book with 
vertical change bars. 


RILEASEJUQ^ A PR I L. 1 33 5 


NEW DEVICE SUPPORT 

Information has been added to support the? 

• IBM 3380 Models AD4, BD4, AE4, and BE4 Direct Access Storage 
devices 

• IBM 4245, 4248, and 3262 Model 5 Printers 

• IBM 3430 Tape Drive 

• IBM 3480 Magnetic Tape Subsystem 


Summary of Changes vii 


l 



NEW PROGRAMMING SUPPORT 


VERSION 


Information has been added that describes the: 

• SYNCDEV macro 

• MSGDISP macro 


PUBLICATIONS 

The Preface includes new order numbers for Version 2. 
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INTRODUCTION 


Before using this publication/ familiarize yourself with the 
information in D ata Administration Guide . 

IBM provides a set of macro instructions so that you can 
communicate service requests to the data management access 
method routines. These macro instructions are available only 
when the assembler language is being used/ and they are 
processed by the assembler program using macro definitions 
supplied by IBM and placed in the macro library when the 
operating system is generated. 

The assembler program expands each macro instruction into 
executable/ assembler language instructions or data/ and shows 
you the exact macro expansion in the assembler listing. The 
executable instructions generally consist of branches around 
data fields/ load register instructions/ and either branch 
instructions or supervisor calls (SVC) that transfer control to 
the proper program. The data fields in each macro instruction 
are parameters that are passed to the access method routine. 

You can use the utility program IEBPTPCH to get a list of macro 
definitions from SYS1.MACLIB/ the library in which the macro 
definitions are stored. For a description of IEBPTPCH/ see 
Uiiiiiies. 

Before coding programs that request supervisor services/ 
familiarize yourself with the information contained in 
Supervisor Services and Macro Instructions . Also/ if you are 
writing programs for specialized applications such as 
telecommunications/ graphics/ character recognition/ or to use 
VSAM (virtual storage access method)/ use the appropriate 
publication listed in the preface that describes the specific 
access method and/or device type you are working with. 

The operation of some macro instructions depends on the options 
selected when the macro instruction is coded. For these macro 
instructions/ either separate descriptions are provided or the 
differences are listed within a single description. If no 
differences are explicitly listed/ none exist. The description 
of each macro instruction starts on a right-hand page; the 
descriptions that do not apply to the access methods being used 
can be removed. Appendix B/ "Data Management Macro Instructions 
Available by Access Method" on page 193 lists the macro 
instructions available for each access method. 


££Oi_ANSI> _ AND FIPS LABELS 

This publication refers to tape labels defined by the 
International Organization for Standardization (ISO)/ the 
American National Standards Institute (ANSI)/ and the Federal 
Information Processing Standard (FIPS). In general/ 
ISO/ANSI/FIPS labels are similar to IBM standard labels/ and/ 
unless otherwise specified/ the term "standard label/" refers to 
both IBM standard labels and ISO/ANSI/FIPS standard labels. ISO 
labeled tapes are coded in the Organization Standard Code for 
Information Interchange (ISCII)/ and ANSI labeled tapes are 
coded in the American National Standards Code for Information 
Interchange (ASCII)/ while IBM labeled tapes are coded either in 
the extended binary-coded-decimal interchange code (EBCDIC) or 
in binary coded decimal (BCD). For further information about 
ISO/ANSI/FIPS labels, see Magnetic Tape Labels and File 
Structure . 
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COD I N G..,AI D S. 


BOLD TYPE 


UNDERSCORED 


BRACKETS 


OR SIGN 


BRACES 


n 


Bold type is used for elements that you must code exactly as 
they are shown. These elements consist of macro names, 
keywords, and these punctuation symbols: commas, parentheses, 
and equal signs. Examples: 

• DCB 

• CLOSE f 9 f t TYPE=T 

• MACRF=(PL,PTC) 

• SK,5 


LOWERCASE LETTERS 

Underscored lowercase letters are used for elements for which 
you code values that you choose, usually according to 
specifications and limits described for each parameter. 
Examples: 

• D.um b er 

• jjmajgezid 

• count 


Brackets, i 3, enclose optional elements that you may or may not 
code as you choose. Examples: 

• Ciervg±h3 

• CMF=E3 



The OR sign, I, separates alternative elements. Examples: 

• i 9 REREAD |9 LEAVE 3 

• i length I 1 S * 3 


Braces, { >, enclose alternative elements from which you must 
choose one, and only one, element. Examples: 

• BFTEK={SIAJ 

• {KID} 

• {ajddjie.s s IS | 0} 

Sometimes, alternative elements (especially complicated 
alternatives) are grouped in a vertical stack of braces. 

Example: 

MACRF={{(RCC|P3)} 

{(WECIPIL3)} 

{(RLC3,WCC3)}} 

In the examples above, you must choose only one element from the 
vertical stack. 


/f ' 
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ELLIPSES 


Ellipses, *♦., indicate that elements may be repeated. 
Example j 

• (d c .ba.d dn> C C q b± Lqhs. )!>...) 


UNDERSCORED BOLD 

Underscored BOLD elements indicate alternative choices that are 
assumed if you don't want to code the optional element. 

Examples: 

• C EROPT=£ ACC | SKP I ABE !) 3 

• CBFALN={F|fi}3 

BLANK SYMBOL 


The blank symbol, b, indicates omitted operands. Example: 


b 


PDAB 


b 


COMPREHENSIVE EXAMPLE 


• MF=(E, { address !(!)>) 

In this example, MF=(E, must be coded exactly as shown. 

Then, either address or (1) must be coded. (The parentheses 
around the 1 are required.) Finally, the closing 
parenthesis must be coded. Thus, MF=(E>(1)) might be coded. 

• RECFM=£{Um[A|M3} 

{VCB|S|T|BS|BT3CA|M3J 

{DCB3CA3} 

{FCB|S|T|BS|BT3CA|M3}} 

In this example, you must first choose one of the four 
alternative elements shown on each line. Then, you must 
choose one of the major elements. Assuming you selected the 
major element beginning with F, you would code F; then you 
could choose one of B, S, T, BS, or BT . Finally, you could 
select either A or M. Thus, you might code any one of the 
following: RECFM=FBTM, RECFM=FA, or RECFM=F. 


M ACR O .. INSTR U C TI ON FO RMA T 

Data management macro instructions are subject to the rules of 
assembler language and are written in the following format: 


Name 

Operation 

Operands 

Comments 

Symbol or 
blank 

Macro name 

None, one or more 
operands separated 
by commas 
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Use the operands to specify services and options you need and 
code them according to the following general rules: 

• If the operand you select is shown in bold capital letters 
(for example, MACRF=WL), code the operand exactly as shown. 

• If the operand you select is a character string in bold type 
(for example, if the type operand of a READ macro 
instruction is SF), code the operand exactly as shown. 

• If the operand is shown in underscored lowercase letters 
(for example, deb address )> substitute the indicated 
address, name, or value. 

• If the operand is a combination of bold capital letters and 
underscored lowercase letters (for example, LRECL= absexp ), 
code the capital letters and equal sign exactly as shown and 
substitute the appropriate address, name, or value for the 
underscored lowercase letters. 

• Code commas and parentheses exactly as shown. 

Note: Omit the comma that follows the last operand in a 

statement. Brackets and braces show how to use commas and 
parentheses the same way they show how to use operands. 

• Several macro instructions contain the designation , S I . Use 
the apostrophe on both sides of the S operand. 

If you need to substitute a name, value, or address, the 
notation you use depends on the operand you are coding. The 
following two examples show how an operand can be coded: 

DDNAME=gymhal 

In this example, you can only code a valid 
assembler-language symbol for the operand. 

deb address —RX-Tvpe Address, (2-12), or (1) 

In the above example, you can substitute an RX-type 
address, any general register 2 through 12, or general 
register 1. 

The following examples show what each notation means and how you 
can code an operand: 

sym bo l 

This notation indicates that the operand can be any valid 
assemblei—language symbol. 

decimal.digit 

This notation indicates that the operand can be any decimal 
digit up to the maximum value allowed for the specific 
operand. 

( 2 - 12 ) 

This notation indicates that the operand can be any of the 
general registers 2 through 12. All register operands must 
be coded in parentheses; for example, if you code register 
5, use the form (j>). If you want to use one of the 
registers Z through 12, code it as a decimal digit, a 
symbol (equated to a decimal digit), or an expression that 
yields a value of 2 through 12. 

(D 

When this notation is shown, general register 1 can be used 
as an operand. The register can be specified as a decimal 
digit 1 enclosed in parentheses. When register 1 is used 
as an operand, the instruction that loads the parameter 
value into the register is not included in the macro 
expansion. 

(HI 

When this notation is shown, general register £ can be used 
as an operand. The register can be specified as a decimal 
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digit fi. enclosed in parentheses. When register jl is used 
as an operand/ the instruction that loads the parameter 
value into the register is not included in the macro 
expansion. 

RX-Tvpe Address 

When this notation is shown/ the operand can be specified 
as any valid assembler-language RX-type address. The 
following shows examples of each valid RX-type address: 


Name 

Operation 

Operand 

ALPHA1 

L 

1/39(4,10) 

ALPHA2 

L 

REG1,39(4,TEN) 

BETA1 

L 

2/ZETAC4) 

BETA2 

L 

REG2/ZETACREG4) 

GAMMA1 

L 

2/ZETA 

GAMMA2 

L 

REG2/ZETA 

GAMMA3 

L 

2, =F 1 1000 1 

LAMBDA1 

L 

3/20(,5) 


Both ALPHA instructions specify explicit addresses; REG1 
and TEN are absolute symbols. Both BETA instructions 
specify implied addresses/ and both use index registers. 
Indexing is omitted from the GAMMA instructions. GAMMA1 
and GAMMA2 specify implied addresses. The second operand 
of GAMMA3 is a literal. LAMBDA1 specifies an explicit 
address with no indexing. 


A-Tvpe Addres s 

When this notation is shown/ the operand can be specified 
as any address that can be written as a valid 
assemblei—language A-type address constant. An A-type 
address constant can be written as an absolute value/ a 
relocatable symbol/ or a relocatable expression. Operands 
that require an A-type address are inserted into an A-type 
address constant during the macro expansion process. For 
more details about A-type address constants/ see Assembler 
H . Xsrslsm .2 ,.,.Ap.pJLi-g.g..t ion Proa ca , nm }i.Qjg..L.,.L. a n g u^ g e. R e„f, e ,ti e as_g. 


When this notation is shown/ the operand can be an absolute 
value or expression. An absolute expression can be an 
absolute term or an arithmetic combination of absolute 
terms. An absolute term can be a nonrelocatable symbol/ a 
self-defining term/ or the length attribute reference. For 
more details about absolute expressions/ see Assembler H 

■V. e n s i, Q p.„ 2 . A pp ! is a ti. Q .n-£r, Q .ar. a mm i n . g i,Aangma.§..^Re, fgnengs * 


When this notation is shown/ the operand can be a 
relocatable symbol or expression. A relocatable symbol or 
expression is one whose value changes by n if the program 
in which it appears is relocated n bytes away from its 
originally assigned area of storage. For more details 
about relocatable symbols and expressions/ see Assembler H 
Version 2 Application Programmingi__Language Reference . 


RULES FOR REGISTER USAGE 

Many macro instruction expansions include instructions that use 
a base register previously defined by a USING statement. The 
USING statement must establish addressability so that macro 
expansion can include a branch around the in-line parameter 
list/ if present/ and see the data fields and addresses 
specified in the macro instruction operands. 

Macro instructions that use a BAL or BALR instruction to pass 
control to an access method routine/ normally require that 
register 13 contain the address of an 18-word register-save 
area. The READ/ WRITE/ CHECK/ GET/ and PUT macro instructions 
are of this type. 
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Macro instructions that use a supervisor call (SVC) instruction 
to pass control to an access method routine may modify general 
registers 0, 1, 14, and 15 without restoring them. Unless 
otherwise specified in the macro instruction description, the 
contents of these registers are undefined when the system 
returns control to the problem program. 

When an operand is specified as a register, the problem program 
must have inserted the value or address to be used into the 
register as follows? 

• Unless the macro instruction description states otherwise, 
and the register is to contain a value, that value must be 
placed in the low-order portion of the register. Any unused 
bits in the register should be set to zero. 

• If the register is to contain a 21-bit address, the address 
must be placed in the low-order three bytes of the register, 
and the high-order byte of the register should be set to 
zero. 

• If the register is to contain a 31-bit address, the address 
must be placed in the low-order 31 bits of the register, and 
the high-order bit of the register should be set to zero. 

Note that, if the macro instruction accepts the RX-type address, 
the high-order byte of a register can be efficiently cleared by 
coding the parameter as 0 (reg) rather than merely as (reg). 1 
Then the macro instruction expands as: 

LA parmreg,0(reg) by macro 

rather than: 

LA reg,0(reg) by user 

and 

LR parmreg,reg by macro 


RULES FOR CONTINUATION LINES 

The operand field of a macro instruction can be continued on one 

or more additional lines as follows: 

1. Enter a continuation character (not blank, and not part of 
the operand coding) in column 72 of the line. 

2. Continue the operand field on the next line, starting in 
column 16. All columns to the left of column 16 must be 
blank. 


For 31-bit addressing mode expansion, the high-order bit of 
a register can be cleared using this same technique. 
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The operand field being continued can be coded in one of two 
ways. The operand field can be coded through column 71, with no 
blanks, and be continued in column 16 of the next line, or the 
operand field can be truncated by a comma, where a comma 
normally falls, with at least one blank before column 71, and 
then be continued in column 16 of the next line. An example of 
each method is shown in the following illustration: 


Name Operation Operand 


Comments 


NAME1 0P1 


0PERAND1,0PERAND2,0PERAND3,OPERANDS,0PERAND5,0PERAND6,OPERX 
AND7,0PERAND8 THIS IS ONE NAY 


NAME2 0P2 0PERAND1,0PERAND2, THIS IS ANOTHER NAY 

0PERAND3, 

0PERAND4 


X 

X 
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The BLDL macro is used to complete a list of information from 
the directory of a partitioned data set. The problem program 
must supply a storage area that must include information about 
the number of entries in the list, the length of each entry, and 
the name of each data set member (or alias) before the BLDL 
macro is issued. Data set member names in the list must be in 
alphameric order. All read and write operations using the same 
data control block must have been tested for completion before 
the BLDL macro is issued. 

The BLDL macro is written? 


[symbol] 

BLDL 

deb address 



add.r_es;s 


deb address —RX-Type Address, (2-12) or (1) 

The deb address operand specifies the address of the data 
control block for an open partitioned data set, or zero can 
be specified to indicate that the data set is in a job 
library, step library, or link library. 

list address —RX-Type Address, (2-12), or (0) 

The list address operand specifies the address of the list 
to be completed when the BLDL macro is issued. The list 
address must be on a halfword boundary. The following 
illustration shows the format of the list: 


List 

Address 


Length 


List 

Description 

Field 


List 

Entry (LL bytes) 


0 or 
More 

Entries (FF total) 


FF 

LL 

NAME 1 

TTR 

s 

z 

B 

USER DATA 

jjMWM 

— 


_ 




_ 

■ 





(bytes) 2 2 


3 111 


0 to 62 


FF? This field must contain a binary value indicating the 
total number of entries in the list. 

LL? This field must contain a binary value indicating the 
length, in bytes, of each entry in the list (must be an 
even number of bytes). If the exact length of the entry is 
known, specify the exact length. Otherwise, specify at 
least 58 bytes (decimal) if the list is to be used with an 
ATTACH, LINK, LOAD, or XCTL macro. The minimum length for 
a list is 12 bytes. 

NAME: This field must contain the member name or alias to 

be located. The name must start in the first byte of the 
name field and be padded to the right with blanks (if 
necessary) to fill the 8-byte field. 
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BLDL 


When the BLDL macro is executed, five fields of the 
directory entry list are filled in by the system. The 
specified length (LL) must be at least 14 to fill in the Z 
and C fields. If the LL field is 12, only the NAME, TT, R, 
and K fields are returned. The five fields are: 

TT : Indicates the relative track number where the 

beginning of the data set member is located. 

R: Indicates the relative block (record) number on the 

track indicated by TT. 

K: Indicates the concatenation number of the data set. 

For the first or only data set, this value is zero. 

Z: Indicates where the system found the directory entry: 

Code Meaning 

0 Private library 

1 Link library 

2 Job, task, or step library 

3-255 Job, task, or step library of parent task n, where 

n = Z-2 

C: Indicates the type (member or alias) for the name, the 

number of note list fields (TTRNs), and the length of the 
user data field (indicated in halfwords). The following 
describes the meaning of the 8 bits: 


Bit 

Meaning 



0 = 0 

Indicates a member name. 



0 = 1 

Indicates an alias. 



1-2 

Indicate the number of TTRN 
the user data field. 

fields 

(maximum of 3) in 

3-7 

Indicate the total number of halfwords in the user 
data field. If the list entry is to be used with an 
ATTACH, LINK, LOAD, or XCTL macro, the value in bits 
3 through 7 is 22 (decimal). 


USER DATA: The user data field contains the user data from 
the directory entry. If the length of the user data field 
in the BLDL list is equal to or greater than the user data 
field of the directory entry, the entire user data field is 
entered into the list. Otherwise, the list contains only 
the user data for which there is space. 
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BLDL 


COMPLETION CODES 

When the system returns control to the problem program, the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code, as follows: 

Return Reason 

Code (15) Code (0) Meaning 


00 (X'OO 1 ) 00 (X'GO 1 ) Successful completion. 

04 (X'04 1 ) 00 (X'OO 1 ) One or more entries in the list could 

not be filled; the list supplied may be 
invalid. If a search is attempted but 
the entry is not found, the R field 
(byte 11) for that entry is set to 
zero. 

08 (X f 08 f ) 00 (X f 00 f ) A permanent I/O error was detected when 

the system attempted to search the 
directory. 

08 (X^S*) 04 (X , 04 l ) Insufficient virtual storage was 

available. 


08 (X'OS 1 ) 08 (X'08') Invalid DEB. (Not in key 0 through 7.) 
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BSP 


BSP—BACKSPACE A PHYSICAL RECORD_[BSAM—MAGNETIC TAPE AND DIRECT ACCESS ONLY) 

The BSP macro causes the current volume to be backspaced one 
data block (physical record). All input and output operations 
must be tested for completion before the BSP macro is issued. 

The BSP macro should not be used if the CNTRL, NOTE, or POINT 
macro is being used. The BSP macro can be used only on data 
sets created by BSAM. 

Any attempt to backspace across a file mark will result in a 
return code of X^** 1 and your tape or direct access volume will 
not be repositioned. This means you cannot issue a successful 
BSP macro after your EODAD routine is entered unless you first 
reposition the tape or direct access volume into your data set. 
(CLOSE TYPE=T would get you repositioned at the end of your data 
set. ) 

Magnetic Tape: A backspace is always made toward the beginning 
of the tape. 

Direct Access Device: A BSP macro must not be issued for a data 
set created by using track overflow. 

SYSIN or SYSOUT Data Sets: A BSP macro is ignored, but a 
completion code is returned. 

The BSP macro is written: 


Csymbol3 


BSP 


■d c b -.ad d r e ss 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the volume to be backspaced. The data 
set on the volume to be backspaced must be opened before 
issuing the BSP macro. 
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BSP 

COMPLETION CODES 


When the system returns control to the problem program, the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code, as follows: 


Return 

Code (15) 

Reason 

Code (0) 

Meaning 

00 

(X'00') 

00 

(X'00') 

Successful completion. 

04 

(X* 04 1 ) 

01 

(X'01 1 ) 

A backspacing request was ignored on a 
SYSIN or SYSOUT data set. 

04 

(X 1 04*) 

02 

(X 1 02 1 ) 

Backspace not supported for this device 
type. 

04 

(X* 04 1 ) 

03 

CX'OS') 

Backspace not successful; insufficient 
virtual storage was available. 

04 

(X 1 04 1 ) 

04 

(X 1 04 1 ) 

Backspace not successful; permanent I/O 
error. 

04 

(X f 04 * ) 

05 

(X*05 f ) 

Backspace into load point or beyond 
start of data set on the current 
volume . 

04 

( X 1 0 4 1 ) 

06 

( X 1 06 1 ) 

Backspace detected an invalid DEB using 
DEBCHECK. 

04 

CX f 04') 

07 

(X f 07*) 

Backspace detected an invalid extend 
value (M) . 

04 

CX 1 04 1 ) 

08 

cx^s') 

Backspace issued while I/O was in 
progress. 
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BUILD 


BUILD—BUILD A BUFFER POOL CBDAM, BISAM,_BPAM,_BSAM, QISAM, AND QSAM) 

The BUILD macro is used to construct a buffer pool in an area 
provided by the problem program. The buffer pool may be used by 
more than one data set through separate data control blocks. 
Individual buffers are obtained from the buffer pool using the 
GETBUF macro; and buffers are returned to the buffer pool using 
a FREEBUF macro. See Data Administration Guid e for an 
explanation of the interaction of the DCB; BUILD; and GETBUF 
macros in each access method; and the buffer size requirements. 

The BUILD macro is written: 


Isymbol] 

BUILD 

area address 



.{number of buffers.buffer length ICO)} 


area address —RX-Type Address; (2-12); or (1) 

The area address operand specifies the address of the area 
to be used as a buffer pool. The area must start on a 
fullword boundary. 

The following illustration shows the format of the buffer 
pool: 


Area 

Address 



Buffer Pool 
Control 

Block 

Buffer 

7 

< - 8 bytes - 

< - 

_ Buffer 

Length 

- Area Len 

gth - 


( 


Buffer 


Buffer 

Length 


Area Length=(Buffer Length) x (Number of Buffers) +8 


Macro Instruction Descriptions 13 




BUILD 


number of buffers —symbol, decimal digit, absexp, or (2-12) 

The numbei—of-buffers operand specifies the number of 
buffers in the buffer pool to a maximum of 255. 

/T~>. 

buffer length —symbol, decimal digit, absexp, or (2-12) ) 

The buffer length operand specifies the length, in bytes, 
of each buffer in the buffer pool. The value specified for 
the buffer length must be a fullword multiple; otherwise, 
the system rounds the value specified to the next higher 
fullword multiple. The maximum length that can be 
specified is 32760 bytes. For QSAM, the buffer length must 
be at least as large as the value specified in the block 
size (DCBBLKSI) field of the data control block. 


The number of buffers and buffer length can be specified in 
general register 0. If (0) is coded, register 0 must 
contain the binary values for the number of buffers and 
buffer length as shown in the following illustration. 


Register 0 


Bits: 


0 


Number of Buffers 


15 16 


Buffer Length 


31 



O 

1 / 
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BUILDRCD 


BUILDRCD—BUILD A BUFFER POOL AND ARECORD AREA (QSAM) 

The BUILDRCD macro causes a buffer pool and a record area to be 
constructed in a usei—provided storage area. This macro is used 
only for variable-length, spanned records processed in QSAM 
locate mode. If the extended logical record interface (XLRI) is 
used to process RECFM=DS or RECFM=DBS records (ISO/ANSI/FIPS 
variable spanned or variable blocked spanned), you can use the 
BUILDRCD macro to build a record area to a maximum length of 
16777183 bytes. Use of this macro before the data set is 
opened, or before the end of the DCB open exit routine, will 
provide a buffer pool that can be used for a logical record 
interface rather than a segment interface for variable-length 
spanned records. To invoke a logical record interface, specify 
BFTEK=A in the DCB. The BUILDRCD macro cannot be specified when 
logical records exceed 32760 bytes. 

The standard form of the BUILDRCD macro is written as follows 
(the list and execute forms are shown following the description 
of the standard form)s 


[symbol] 

BUILDRCD 

area address 

9 number of buffers 



t buffer length 

9 record area address 



E »record area lenathl 


area address —A-Type Address or (2-12) 

The area address operand specifies the address of the area 
to be used as a buffer pool. The area must start on a 
fullword boundary. 

number of buffers —symbol, decimal digit, absexp, or (2-12) 

The numbei—of-buffers operand specifies the number of 
buffers, to a maximum of 255, to be in the buffer pool. 

buffer length —symbol, decimal digit, absexp, or (2-12) 

The buffei—length operand specifies the length, in bytes, 
of each buffer in the buffer pool. The value specified for 
the buffer length must be a fullword multiple; otherwise, 
the system rounds the value specified to the next higher 
fullword multiple. The maximum length that can be 
specified is 32760. 

record area address —A-Type Address or (2-12) 

The record area address operand specifies the address of 
the storage area to be used as a record area. The area 
must start on a doubleword boundary and have a length of 
the maximum logical record (LRECL) plus 32 bytes. 

record area length —symbol, decimal digit, absexp, or (2-12) 

The record area length operand specifies the length of the 
record area to be used. The area must be as long as the 
maximum length logical record plus 32 bytes for control 
information. If the record area length operand is omitted, 
the problem program must store the record area length in 
the first four bytes of the record area. 
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BUILDRCD 


The following illustration shows the format of the buffer pool*. 


Area 

Address 


BUFAD 

BUFLG 

BUFNO 

BUFLTH 

BUFRECAD 


IT 


Address of First 

Available Buffer 

Flags 

No. of 
Buffers 
Req’d 

Length of 
Each 

Buffer 

Address 
of Record 

Area 

Buffer 

l 

Buffer 

4 bytes 

1 byte 

1 byte 2 bytes 

4 bytes 

Buffer 


Buffer 

Buffer Pool Control Block 

■*-Area Length- 

1 Length 


Length 


Area Length = (Buffer Length) x (Number of Buffers) +12 


1C j 


BUFLG Flags: 

Bit Meaning 

0=1 Record area present 

1=1 Buffer control block extended 

2-7 Reserved 

Notes: 

1. The buffer pool control block contains the address of the 
record area and a flag that indicates logical-record 
interface processing of variable-length, spanned records. 

2. It is the user f s responsibility to release the buffer pool 
and the record area after a CLOSE macro has been issued for 
all the data control blocks that use the buffer pool and the 
record area. 
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BJILLD R C P—1 1 ST , FO RM 


The list form of the BUILDRCD macro is used to construct a 
program parameter list. The description of the standard form of 
the BUILDRCD macro instruction provides the explanation of the 
function of each operand. The description of the standard form 
also indicates the operands that are totally optional and those 
that are required in at least one of the pair of list and 
execute forms. The format description below indicates the 
optional and required operands in the list form only. 

The list form of the BUILDRCD macro is written? 


ISy mbo l 3 


BUILDRCD 


area address 
* D.u m b eji_o,f _b u ff e ns 
t buf f e r .. leng t h 
t record area address 
[^ record area length ] 
f MF=L 


area address —A-Type Address 

number of buffers —symbol, decimal digit, or absexp 
buffer length —symbol, decimal digit, or absexp 
record area address —A-Type Address 

record area length —symbol, decimal digit, or absexp 

MF=L 

The MF=L operand specifies that the BUILDRCD macro 
instruction is used to create a parameter list that will be 
referenced by an execute form instruction. 

Note: A parameter list can be constructed by coding only the 

MF=L operand (without the preceding comma); in this case, the 
list is constructed for the area address, number of buffers, 
buffer length, and record area address operands. If the record 
area length operand is also required, the operands can be coded 
as follows: 

C svmbol ] BUILDRCD ,,,0,MF=L 

The preceding example shows the coding to construct a list 
containing address constants with a value of 0 in each constant. 
The actual values can then be supplied by the execute form of 
the BUILDRCD macro. 
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BUILDRCD 


BUILDRCD—EXECUTE FORM 

A remote parameter list is referred to, and can be modified by, 

the execute form of the BUILDRCD macro. The description of the f X 

standard form of the BUILDRCD macro instruction provides the ( 

explanation of the function of each operand. The description of 

the standard form also indicates the operands that are totally 

optional and those that are required in at least one of the pair 

of list and execute forms. The format description below 

indicates the optional and required operands for the execute 

form only. 

The execute form of the BUILDRCD macro is written: 


i symbol3 


BUILDRCD 


C area.,,aLd djiess 3 
t [ number of buffers ! 
t [ buffer length ! 
t [ record area address ] 
t [ record area length ! 
,MF=(E»{ list address lCl)}) 


area address —RX-Type Address or (2-12) 
number of buffers —absexp 
buffer length —absexp 

record area address —RX-Type Address or (2-12) 
record area length —absexp 
MF=(E,C list address lCl)}) 

This operand specifies that the execute form of the 
BUILDRCD macro instruction is used, and an existing 
parameter list (created by a list-form instruction) will be 
used. The MF= operand is coded as described in the 
following: 

E 

list address —RX-Type Address, (2-12), or (1) 
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CHECK—WAIT FOR AND TEST COMPLETION OF A READ OR WRITE OPERATION(BDAM, BISAM, BPAM, 
AN J DJB SM1 


The CHECK macro causes the active task to be placed in the wait 
condition, if necessary; until the associated input or output 
operation is completed. The input or output operation is then 
tested for errors and exceptional conditions. If the operation 
is completed successfully, control is returned to the 
instruction following the CHECK macro. If the operation is not 
completed successfully, the error analysis (SYNAD) routine is 
given control or, if no error analysis routine is provided, the 
task is abnormally terminated. The error analysis routine is 
discussed in the SYNAD operand of the DCB macro. 

The following conditions are also handled for BPAM and BSAM 
only: 

When Reading: The end-of-data (EODAD) routine is given control 
if an input request is made after all the records have been 
retrieved. Volume switching is automatic for a BSAM data set 
that is not opened for UPDAT. For a BSAM data set that is 
opened for update, the end-of-data routine is entered at the end 
of each volume. 

When Writing: Additional space on the device is obtained when 
the current space is filled and more WRITE macro instructions 
have been issued. 

For BPAM and BSAM, a CHECK macro must be issued for each input 
and output operation, and must be issued in the same order as 
the READ or WRITE macros were issued for the data set. For BDAM 
or BISAM, either a CHECK or a WAIT macro can be used. For 
information on when the WAIT macro can be used, see Data 
Administration Guide . 

If the ISCII/ASCII translation routines are included when the 
operating system is generated, translation can be requested by 
coding LABEL=(,AL) or (,AUL) in the DD statement, or it can be 
requested by coding QPTCD=Q in the DCB macro or DCB subparameter 
of the DD statement. If translation is requested, the check 
routine automatically translates BSAM records, as they are read, 
from ISCII/ASCII code to EBCDIC code, provided that the record 
format is F, FB, D, DB, or U. Translation occurs as soon as the 
check routine determines that the input buffer is full. For 
translation to occur correctly, all input data must be in ISCII 
or ASCII code. 

The CHECK macro is written: 


[symbol^ 

CHECK 

decb address 



[ , DSORG={IS|ALL}1 


decb address —RX-Type Address, (2-12), or Cl) 

The decb address operand specifies the address of the data 
event control block created by the associated READ or WRITE 
macro or used by the associated input or output operation. 

DSORG={IS|ALL} 

The DSORG operand specifies the type of data set 
organization. The following describes the characters that 
can be coded: 

IS 

Specifies that the program generated is for BISAM use 
only. 

ALL 

Specifies that the program generated is for BDAM, 
BISAM, BPAM, or BSAM use. 

If the DSORG operand is omitted, the program generated is 
for BDAM, BPAM, or BSAM use only. 
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CHKPT 

CHKEIZZ IMI ^CHJ E CKJPO ^^ ^ 


The CHKPT macro is coded in-line in the problem program. When 
this macro executes, the operating system writes a checkpoint 
entry in a checkpoint data set. The entry consists of job step 
information, such as virtual-storage data areas, data set 
position, and supervisor control, from the problem program. The 
problem program automatically restarts with the instruction 
immediately following the CHKPT macro. 

For details on the CHKPT macro, see C Jie, £kp pln^ 

Guide . 
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CLOSE—LOGICALLY DISCONNECT A DATA SET (BDAM, BISAM, BPAM, BSAM, QISAM, AND QSAM) 

The CLOSE macro causes output data set labels to be created and 
volumes to be positioned as specified by the user. The fields 
of the data control block are restored to the condition that 
existed before the OPEN macro was issued, and the data set is 
disconnected from the processing program. Final volume 
positioning or disposition for the current volume can be 
specified to override the positioning implied by the DD control 
statement DISP parameter. Any number of deb address operands 
and associated options may be specified in the CLOSE macro. 

Associated data sets for an IBM 3525 Card Punch can be closed in 
any sequence, but, if one data set is closed, I/O operations 
cannot be initiated for any of its associated data sets. 
Additional information about closing associated data sets is 
contained in P_ a i^,,, A , dmi ,D As .t ra1 3 JP. a Jzui_cLe_. 

After a CLOSE has been issued for several data sets, a return 
code of 4 indicates that at least one of the data sets, VSAM or 
non-VSAM, was not closed successfully. 

A FREEPOOL macro should normally follow a CLOSE macro 
instruction (without TYPE=T) to regain the buffer pool storage 
space and to allow a new buffer pool to be built if the DCB is 
reopened with different record size attributes. 

A special operand, TYPE=T, is provided for processing with BSAM. 

The standard form of the CLOSE macro is written as follows (the 
list and execute forms are shown following the description of 
the standard form): 


Csvmbol] 

CLOSE 

(deb address*(option*.•* 3) 



[,TYPE=T] 



[>M0DE=24131] 


deb addres s—A-Type Address or (2-12) 

specifies the address of the data control block for the 
opened data set that is to be closed. 

option 

One of these options indicates the volume positioning that 
is to occur when the data set is closed. This option is 
generally used with the TYPE=T operand or for data sets on 
magnetic tape. However, options specified in the CLOSE 
macro will override disposition specifications in the JCL 
for all data sets. The options are: 

REREAD 

specifies that the current volume is to be positioned 
to reprocess the data set. If processing was forward, 
the volume is positioned to the beginning of the data 
set; if processing was backward (RDBACK), the volume 
is positioned to the end of the data set. If 
FREE=CLOSE is specified in the JCL, the data set is 
not unallocated until the end of the job step. 


LEAVE 

specifies that the current volume is to be positioned 
to the logical end of the data set. If processing was 
forward, the volume is positioned to the end of the 
data set; if processing was backward (RDBACK), the 
volume is positioned to the beginning of the data set. 

REWIND 

specifies that the current magnetic tape volume is to 
be positioned at the load point, regardless of the 
direction of processing. REWIND cannot be specified 
when TYPE=T is specified. If FREE=CLO$E has been 
coded on the DD statement associated with the data set 
being closed, coding the REWIND option will result in 
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the data set being freed at the time it is closed 
rather than at the termination of the job step. 


FREE 

specifies that the current data set is to be freed at 
the time the data set is closed, rather than at the 
time the job step is terminated. For tape data sets t 
this means that the volume is eligible for use by 
other tasks or to be demounted. Direct access volumes 
may also be freed for use by other tasks. They may be 
freed for demounting if (1) no other data sets on the 
volume are open and (2) the volume is otherwise 
demountable. Do not use this option with CLOSE 
TYPE=T. (For other restrictions on the FREE 
parameter, see JCL .) 


DISP 

specifies that a tape volume is to be disposed of in 
the manner implied by the DD statement associated with 
the data set. Direct access volume positioning and 
disposition are not affected by this parameter. There 
are several dispositions that can be specified in the 
DISP parameter of the DD statement; DISP can be PASS* 
DELETE, KEEP, CATLG, or UNCATLG. 

Depending on how the DISP option is coded in the DD 
statement, the current magnetic tape volume will be 
positioned as follows: 

DISP Parameter 

PASS 


DELETE 

KEEP, CATLG, or UNCATLG 


Action 

Forward space to the end of 
data set on the current 
volume. 

Rewind the current volume. 

The volume is positioned as 
for CLOSE REREAD. Note that 
the volume is not rewound and 
unloaded. 


If FREE=CLOSE has been coded in the DD statement 
associated with this data set, coding the DISP option 
in the CLOSE macro will result in the data set being 
freed when the data set is closed, rather than at the 
time the job step is terminated. 

Note: When the option operand is omitted, DISP is assumed. 

For TYPE=T, this is processed as LEAVE during execution. 

The LEAVE and REREAD options are meaningless except for 
magnetic tape and CLOSE TYPE=T. 

TYPE=T 

You can code CLOSE TYPE=T to perform some close functions 
for sequential data sets on magnetic tape and direct access 
volumes processed with BSAM. When you use TYPE=T, the DCB 
used to process the data set maintains its open status, and 
you should not issue another OPEN macro to continue 
processing the same data set. This option cannot be used 
in a SYNAD exit routine. 


The TYPE=T operand causes the system control program to 
process labels, modify some of the fields in the system 
control blocks for that data set, and reposition the volume 
(or current volume in the case of multivolume data sets) in 
much the same way that the normal CLOSE macro does. When 
you code TYPE=T , you can specify that the volume either be 
positioned at the end of data (the LEAVE option) or be 
repositioned at the beginning of data (the REREAD option). 
Magnetic tape volumes are repositioned either immediately 
before the first data record or immediately after the last 
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data record; the presence of tape labels has no effect on 
repositioning. 

If you code the RLSE keyword with the SPACE parameter on 
the DD statement that describes the output data set, it is 
ignored by temporary close (CLOSE TYPE=T). If the last 
operation occurring prior to the normal CLOSE (without 
TYPE=T) and after the temporary close was a write, then any 
unused space will be released. 

M0DE=24|31 

You can code CLOSE M0DE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. The 
default, M0DE=24, will specify a standard form parameter 
list with 24-bit addresses. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC290I message will be issued and the data set will not be 
closed. 

Note: It is up to you to keep the mode specified in the 

MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 

Note: To use the CLOSE macro instruction supplied in the 

MVS/XA macro library on MVS/370, use the SPLEVEL macro 
instruction. You must use the SPLEVEL macro instruction to 
ensure that the MVS/XA version of the CLOSE macro 
instruction executes successfully on MVS/370. For more 
information on how to use the SPLEVEL macro, see System 
M a c r _o s_, a n d _Fa, ci ,l. i .t j es, Volume 2. 

For additional information and coding restrictions, see 
Data Administration Guide . 
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The list form of the CLOSE macro is used to construct a data 
management parameter list. Any number of operands (data control 
block addresses and associated options) can be specified. 

The list consists of a one-word entry for each DCB in the 
parameter list; the high-order byte is used for the options and 
the three low-order bytes are used for the DCB address. The end 
of the list is indicated by a 1 in the high-order bit of the 
last entry’s option byte. The length of a list generated by a 
list-form instruction must be equal to the maximum length 
required by an execute-form instruction that refers to the same 
list. A maximum length list can be constructed by one of two 
methods: 

• Code a list-form instruction with the maximum number of 
parameters that are required by an execute-form instruction 
that refers to the list. 

• Code a maximum length list by using commas in a list-form 
instruction to acquire a list of the appropriate size. For 
example,, coding CLOSE CMF=L would provide a list 
of five fullwords (five deb addresses and five options). 

Entries at the end of the list that are not referenced by the 
execute-form instruction are assumed to have been filled ir> when 
the list was constructed or by a previous execute-form 
instruction. Before using the execute-form instruction, you may 
shorten the list by placing a 1 in the high-order bit of the 
last DCB entry to be processed. 

A zeroed work area on a word boundary is equivalent to CLOSE 
(,DISP,...),MF=L and can be used in place of a list-form 
instruction. The high-order bit of the last DCB entry must 
contain a 1 before this list can be used with the execute-form 
instruction. 

A parameter list constructed by a CLOSE macro, list form, can be 
referred to by either an OPEN or CLOSE execute-form instruction. 

The description of the standard form of the CLOSE macro provides 
the explanation of the function of each operand. The 
description of the standard form also indicates the operands 
that are completely optional and those required in at least one 
of the pair of list and execute forms. The format description 
below indicates the optional and required operands in the list 
form only. 

The list form of the CLOSE macro is written: 


(O 


[symbol] 

CLOSE 

([deb address]*[option]) 

[,TYPE=T1 



,MF=L 

[,M0DE=MI311 


deb address —A-Type Address 
option —Same as standard form 
TYPE=T 

The TYPE=T operand can be coded in the list-form 
instruction to allow the specified option to be checked for 
validity when the program is assembled. 


The MF=L operand specifies that the CLOSE macro instruction 
is used to create a data management parameter list that 
will be referred to by an execute-form instruction. 


;f \ 

\ . ./ 
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M0DE=24|31 

You can code CLOSE M0DE=31 to specify a long form parameter 
list that will be able to contain 31~bit addresses. The 
default, M0DE=24, will specify a standard form parameter 
list with 24-bit addresses. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC290I message will be issued and the data set will not be 
closed. 

Note: It is up to you to keep the mode specified in the 

MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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CLOSE—EXECUTE FORM 


A list form of the CLOSE macro is used in and can be modified by 
the execute form of the CLOSE macro. The parameter list can be 
generated by the list form of either an OPEN macro or a CLOSE 
macro. 

The description of the standard form of the CLOSE macro provides 
the explanation of the function of each operand. The 
description of the standard form also indicates the operands 
that are totally optional and those required in at least one of 
the pair of list and execute forms. The format description 
below indicates the optional and required operands in the 
execute form only. 

The execute form of the CLOSE macro is written: 



CLOSE 

CCCdcb address)>Coption3»••♦)3 

■HUH 


[,TYPE=T] 



»MF=(E,{address oflist forml(1)1) 

BBBBi 


[ t M0DE=24|31] 


deb address —RX-Type Address or (2-12) 

option —If specified, same as the standard form. If not 
specified, the option specified in the list form of the CLOSE 
macro will be used. 

TYPE=T —Same as standard form, 

MF= (E, { address of the list form |Cl)}) 

specifies that the execute form of the CLOSE macro 
instruction is being used, and the parameter list is 
created by the list form of the CLOSE macro instruction. 
The MF= operand is coded as described in the following: 

E 

address of the list form of the CLOSE (or OPEN) macro 
instruction—RX-Type Address, (2-12), or (1) 


M0DE=24|31 

You can code CLOSE M0DE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. The 
default, M0DE=24, will specify a standard form parameter 
list with 24-bit addresses. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC290I message will be issued and the data set will not be 
closed. 

Note: It is up to you to keep the mode specified in the 

MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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The CNTRL macro is used to control magnetic tape drives (BSAM 
only for a data set that is not open for output), on-line card 
readers, IBM 3525 Card Punches (read and print features), 
printers (BSAM and QSAM), and the IBM 3890 Document Processor 
(QSAM only). For information on additional operands for the 
CNTRL macro for the 3890, see IBM 3890 Document Processor 
Maj±Linj e _aji,d... Jj^Lguca. m»n iB.g., P es c , r j p t io g . 

The MACRF operand of the DCB macro must specify a C. The CNTRL 
macro is ignored for SYSIN or SYSOUT data sets. For BSAM, all 
input and output operations must be tested for completion before 
the CNTRL macro is issued. The control facilities available are 
as follows: 

Card Reader? Provides stacker selection, as follows: 

QSAM—For unblocked records, a CNTRL macro should be issued 
after every input request. For blocked records, a CNTRL macro 
is issued after the last logical record on each card that is 
retrieved. Nhether reading blocked or unblocked records, do not 
issue a CNTRL macro after a GET macro has caused control to pass 
to the EODAD routine. The move mode of the GET macro must be 
used, and the number of buffers (BUFNO field of the DCB) must be 
1. If a CLOSE macro is issued before the last card is read, the 
operator should clear the reader before the device is used 
again. 

BSAM—The CNTRL macro should be issued after every input 
request. 

Printer: Provides line spacing or a skip to a specific carriage 

control channel. A CNTRL macro cannot be used if carriage 
control characters are provided in the record. If the printer 
contains the universal character set feature, data checks should 
be blocked (0PTCD=U should not appear in the data control 
block). 

Magnetic Tape: Provides method of forward spacing and 
backspacing (BSAM only for a data set that is not open for 
output). If 0PTCD=H is indicated in the data control block, the 
CNTRL macro can be used to perform record positioning on DOS 
tapes that contain embedded checkpoint records. Embedded 
checkpoint records encountered during the record positioning are 
bypassed and are not counted as blocks spaced over. 0PTCD=H 
must be specified in a job control language DD statement. The 
CNTRL macro cannot be used to backspace DOS 7-track tapes that 
are written in data convert mode that contain embedded 
checkpoint records (BSAM). 

Note: The CNTRL macro should not be used with output operations 

on BSAM tape data sets. 

3525 Printing: Provides line spacing or a skip to a specific 
printing line on the card. The card contains 25 printing lines; 
the odd-numbered lines 1 through 23 correspond to the printer 
skip channels 1 through 12 (see the SK operand). For additional 
information about 3525 printing operations, see OS and OS/VS 
Programming Support for the IBM 3505 Card Reader and IBM 3525 
Card Punch . 
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The CNTRL macro is written: 


[symbol 1 

CNTRL 

deb address 

£,SS,£1|2}} 



£,SP,£1|2|3}} 

£,SK,£1|2|...1111123} 

£>BSM} 

£ t FSM} 

£,BSR[,number of blocks!} 

£,FSR[,number of blocks]} 



deb address 

The deb address operand specifies the address of the data 
control block for the data set opened for the on-line 
device. 

S$,{1|2} 

The SS operand is coded as shown to indicate that the 
control function requested is stacker selection on a card 
reader; either 1 or 2 must be coded to indicate which 
stacker is to be selected. 

SP,{1|2|3} 

The SP operand is coded as shown to indicate that the 
control function requested is printer line spacing or 3525 
card punch line spacing; either 1, 2, or 3 must be coded to 
indicate the number of spaces for each print line. 

SK>{1|2|.♦.111112} 

The SK operand is coded as shown to indicate that the 
control function requested is a skip operation on the 
printer or 3525 card punch, print feature; a number (1 
through 12) must be coded to indicate the channel or print 
line to which the skip is to be taken. 


BSM 

The BSM operand indicates that the control function 
requested is to backspace the magnetic tape past a 
tapemark, then forward space over, the tapemark. When this 
operand is specified, the DCBBLKCT field in the data 
control block is set to zero. 

FSM 

The FSM operand indicates that the control function 
requested is to forward space the magnetic tape over a 
tapemark, then backspace past the tapemark. When this 
operand is specified, the DCBBLKCT field in the data 
control block is set to zero. 

BSR 

The BSR operand indicates that the control function 
requested is to backspace the magnetic tape the number of 
blocks indicated in the number-of-blocks operand. 

FSR 

The FSR operand indicates that the control function 
requested is to forward space the magnetic tape the number 
of blocks indicated in the numbei—of-blocks operand. 

number of blocks —symbol, decimal digit, absexp, or (2-12) 
The number-of-blocks operand specifies the number of 
blocks to backspace (see BSR operand) or forward space 
(see FSR operand) the magnetic tape. The maximum 
value that can be specified is 32767. If the 
number-of-blocks operand is omitted, 1 is assumed. 
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If the forward space or backspace operation is not completed 
successfully, control is passed to the error analysis CSYNAD) 
routine; if no SYNAD exit routine is designated, the task is 
abnormally terminated. Register contents, when control is 
passed to the error analysis routine, are shown in 
Appendix A, "Status Information Following an Input/Output 
Operation” on page 192. If a tapemark is encountered for BSR or 
FSR, control is returned to the processing program, and register 
15 contains a count of the uncompleted forward spaces or 
backspaces. If the operation is completed normally, register 15 
contains the value zero. 
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DCB—CONSTRUCT A DATA CONTROL BLOCK-1BDAMJ, 


The data control block for a basic direct access method CBDAM) 
data set is constructed during assembly of the problem program. 
The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other operands can be supplied from the DD 
statement or an existing data set label (DSCB). If more than 
one of these sources specifies information for a particular 
field, the order of priority is the DCB macro instruction, DD 
statement, and data set label. Each of the BDAM DCB operand 
descriptions contains a heading, "Source." The information 
under this heading describes the sources from which an operand 
can be supplied to the data control block. 

The DCB macro for BDAM is written* 


l symbol ! 


DCB 


[BFALN={F|D}3 
E,BFTEK=R3 
[ ,BLKSIZE= absexp 3 
I,BUFCB= relexp 3 
I >BUFL= absQXp 3 
[,BUFN0= absexp 3 
i, DDNAME=symbol3 1 
,dsorg=cdaTdaQI 

[,EXLST= relexp 3 
[ t KEYLEN= absexp 3 
C,LIMCT= absexp 3 

,MACRF=CC(RCKCI3|I}EX3CS3CC3 3} 

C(MCACK3CI3|KC13|I}CC3)} 

CCRCKEI3 |I}[Xl[S3[C3fl4CA[K3EZ3 |KCI3|I}[C3)} 
[,OPTCD=CCR|A3CE3[F3CW33} 

C,RECFM=CU|VCS|BS3IFCT3J3 
[,SYNAD= relexp 3 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the DCB operands that can be specified 
for creating and processing a BDAM data set: 

BFALN=CFID} 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool. The BFALN operand can be 
specified when Cl) BSAM is being used to create a BDAM data 
set and buffers are acquired automatically, (2) when an 
existing BDAM data set is being processed and dynamic 
buffering is requested, or (3) when the GETPOOL macro 
instruction is used to construct the buffer pool. If the 
BFALN operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 

F 

specifies that each buffer is aligned on a fullword 
boundary that is not also a doubleword boundary. 


specifies that each buffer is aligned on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide the area for 
the buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
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operands are specified, they must be supplied from the same 
source. 

BFTEK=R 

The R value coded for the BFTEK operand specifies that the 
data set is being created for or contains variable-length 
spanned records. The BFTEK operand can be coded only when 
the record format is specified as RECFM=VS. 

When variable-length spanned records are written, the data 
length can exceed the total capacity of a single track on 
the direct access device being used, or it can exceed the 
remaining capacity on a given track. The system divides 
the data block into segments (if necessary), writes the 
first segment on a track, and writes the remaining 
segmentCs) on the following trackCs). 

When a variable-length spanned record is read, the system 
reads each segment and assembles a complete data block in 
the buffer designated in the area address operand of a READ 
macro instruction. 

Note: Variable-length spanned records can also be read 

using BSAM. When BSAM is used to read a BDAM 
variable-length spanned record, the record is read one 
segment at a time, and the problem program must assemble 
the segments into a complete data block. This operation is 
described in the section for the BSAM DCB macro 
instruction. 

Source: The BFTEK operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 

BLKSIZE= absexp (maximum value is 32760) 

The BLKSIZE operand specifies the length, in bytes, of each 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, of each data block for 
variable-length or undefined-length records. If keys are 
used, the length of the key is not included in the value 
specified for the BLKSIZE operand. 

The actual value that can be specified in the BLKSIZE 
operand depends on the record format and the type of direct 
access device being used. If track overflow is used or if 
variable-length spanned records are used, the value 
specified in the BLKSIZE operand can be up to the maximum. 
For all other record formats (F, V, VBS, and U), the 
maximum value that can be specified in the BLKSIZE operand 
is determined by the track capacity of a single track on 
the direct access device being used. Device capacity for 
direct access devices is described in Appendix C, "Device 
Capacities” on page 194 of this publication. For 
additional information about device capacity and space 
allocation, see Data Administration Guide . 

Source: The BLKSIZE operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

BUFCB=nelexp 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If the buffer pool is constructed automatically, 
dynamically, or by a GETP00L macro instruction, the system 
places the address of the buffer pool control block into 
the data control block, and the BUFCB operand is not 
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required. The BUFCB operand is not required if the problem 
program controls all buffering. 

Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL=a bsexp (maximum value KEYLEN + BLKSIZE is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffers are acquired 
automatically (create BDAM) or dynamically (existing BDAM). 

When buffers are acquired automatically (create BDAM), the 
BUFL operand is optional; if specified, the value must be 
at least as large as the sum of the values specified for 
the KEYLEN and BLKSIZE operands. If the BUFL operand is 
omitted, the system constructs buffers with a length equal 
to the sum of the values specified in the KEYLEN and 
BLKSIZE operands. 

The BUFL operand must be specified when an existing BDAM 
data set is being processed and dynamic buffering is 
requested. Its value must be at least as large as the 
value specified for the BLKSIZE operand when the READ or 
WRITE macro instruction specifies a key address, or the 
value specified in the BUFL operand must be at least as 
large as the sum of the values specified in the KEYLEN and 
BLKSIZE operands if the READ and WRITE macro instructions 
specify 'S' for the key address. 

The BUFL operand can be omitted if the buffer pool is 
constructed by a BUILD or GETPOOL macro instruction or if 
the problem program controls all buffering. 

Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNO= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers, to be 
constructed by a BUILD macro instruction, or it specifies 
the number of buffers and/or segment work areas to be 
acquired by the system. 

If the buffer pool is constructed by a BUILD macro 
instruction or if buffers are acquired automatically when 
BSAM is used to create a BDAM data set, the number of 
buffers must be specified in the BUFNO operand. 

If dynamic buffering is requested when an existing BDAM 
data set is being processed, the BUFNO operand is optional; 
if omitted, the system acquires two buffers. 

If variable-length spanned records are being processed and 
dynamic buffering is requested, the system also acquires a 
segment work area for each buffer. If dynamic buffering is 
not requested, the system acquires the number of segment 
work areas specified in the BUFNO operand. If the BUFNO 
operand is omitted when variable-length spanned records are 
being processed and dynamic buffering is not requested, the 
system acquires two segment work areas. 

If the buffer pool is constructed by a GETPOOL macro 
instruction or if the problem program controls all 
buffering, the BUFNO operand can be omitted, unless it is 
required to acquire additional segment work areas for 
variable-length spanned records. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 
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DDNAME=symbol 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB macro 
instruction or can be moved into the DCB by the problem 
program before an OPEN macro instruction is issued to open 
the data set. 

D$ORG={DA|DAUJ 

The DSORG operand specifies the data set organization and 
whether the data set contains any location-dependent 
information that would make it unmovable. For example, if 
actual device addresses are used to process a BDAM data 
set, the data set may be unmovable. The following 
describes the characters that can be specified: 

DA 

specifies a direct organization data set. 

DAU 

specifies a direct organization data set that contains 
location-dependent information. 

When a BDAM data set is created, the basic sequential 
access method (BSAM) is used. The DSORG operand in the DCB 
macro instruction must be* coded as DSORG=PS or PSU when the 
data set is created, and the DCB subparameter in the 
corresponding DD statement must be coded as DSORG=DA or 
DAU. This creates a data set with a data set label 
identifying it as a BDAM data set. 

Source: The DSORG operand must be specified in the DCB 

macro instruction. See the preceding comment about 
creating a BDAM data set. 

EXLST= rele xp 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand must be specified if 
the problem program processes user labels during the open 
or close routine, if the data control block exit routine is 
used for additional processing, or if the DCB abend exit is 
used for abend condition analysis. 

For the format and requirements of exit list processing, 
see Appendix D, ”DCB Exit List Format and Contents” on 
page 197. For additional information about exit list 
processing, see Data Administration Guide . 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program before the exit is 
needed. 

KEYLEN= absex p (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, of all 
keys used in the data set. When keys are used, a key is 
associated with each data block in the data set. If the 
key length is not supplied by any source, no input or 
output requests that require a key can be specified in a 
READ or WRITE macro instruction. 

Source: The KEYLEN operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by an existing data 
set label. If KEYLEN=0 is specified in the DCB macro 
instruction, a special indicator is set in RECFM so that 
KEYLEN cannot be supplied from the DCB subparameter of a DD 
statement or data set label of an existing data set. 
KEYLEN=0 can be coded only in the DCB macro instruction and 
will be ignored if specified in the DD statement. 
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LIMCT= absex p 

The LIMCT operand specifies the number of blocks or tracks 
to be searched when the extended search option (OPTCD=E) is 
requested. 

When the extended search option is requested and relative 
block addressing is used, the records must be fixed-length 
record format. The system converts the number of blocks 
specified in the LIMCT operand into the number of tracks 
required to contain the blocks, then proceeds in the manner 
described below for relative track addressing. 

When the extended search option is requested and relative 
track addressing is used (or the number of blocks has been 
converted to the number of tracks), the system searches for 
two things: (a) the block specified in a READ or WRITE 
macro instruction (type DK), or (b) available space where 
it can add a block (WRITE macro instruction, type DA). The 
search is as follows: 

1. The search begins at the track specified by the block 
address operand of a READ or WRITE macro instruction. 

2. The search continues until the search is satisfied, the 
number of tracks specified in the LIMCT operand have 
been searched, or the entire data set has been 
searched. If the search has not been satisfied when 
the last track of the data set is reached, the system 
continues the search by starting at the first track of 
the data set if the EOF marker is on the last track 
that was allocated to the data set. (This operation 
allows the number specified in the LIMCT operand to 
exceed the size of the data set, causing the entire 
data set to be searched.) You can ensure that the EOF 
marker is on the last allocated track by determining 
the size of the data set and allocating space in 
blocks, or by allocating space in tracks and including 
the RLSE parameter on the SPACE operand of the DD 
statement (RLSE specifies that all unused tracks be 
returned to the system). 

The problem program can change the DCBLIMCT field in the 
data control block at any time, but, if the extended search 
option is used, the DCBLIMCT field must not be zero when a 
READ or WRITE macro instruction is issued. 

If the extended search option is not requested, the system 
ignores the LIMCT operand, and the search for a data block 
is limited to a single track. 

Source: The LIMCT operand can be supplied in the DCB macro 

instruction, the DCB subparameter of a DD statement, or by 
the problem program before the count is required by a READ 
or WRITE macro instruction. 

MACRF=£{(R{KCI]|I}[X][S]CC3)} 

{(WCACK3CI3|KCI1|I}CC])J 

circkeij ii}[xj[snc],w{Amm iKm incc])}} 

The MACRF operand specifies the type of macro instructions 
(READ, WRITE, CHECK, and WAIT) used when the data set is 
processed. The MACRF operand also specifies the type of 
search argument and BDAM functions used with the data set. 
When BSAM is used to create a BDAM data set, the BSAM 
operand MACRF=WL is specified. This special operand 
invokes the BSAM routine that can create a BDAM data set. 
The following describes the characters that can be 
specified for BDAM: 

A 

specifies that data blocks are to be added to the data 
set. 
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C 

specifies that CHECK macro instructions are used to 
test for completion of read and write operations. If 
C is not specified, WAIT macro instructions must be 
used to test for completion of read and write 
operations. 

I 

specifies that the search argument is to be the block 
identification portion of the data block. If relative 
addressing is used, the system converts the relative 
address to a full device address (MBBCCHHR) before the 
search. 

K 

specifies that the search argument is to be the key 
portion of the data block. The location of the key to 
be used as a search argument is specified in a READ or 
WRITE macro instruction. 

R 

specifies that READ macro instructions are to be used. 
READ macro instructions can be issued when the data 
set is opened for INPUT, OUTPUT, or UPDAT. 

S 

specifies that dynamic buffering is requested by 
specifying 'S 1 in the area address operand of a READ 
or WRITE macro instruction. 

W 

specifies that WRITE macro instructions are used. 

WRITE macro instructions can be issued only when the 
data set is opened for OUTPUT or UPDAT. 

X 

specifies that READ macro instructions request 
exclusive control of a data block. When exclusive 
control is requested, the data block must be released 
by a subsequent WRITE or RELEX macro instruction. 

Source: The MACRF operand must be supplied in the DCB 

macro instruction. 

OPTCD={CR|A] [E3CFHW]} 

The OPTCD operand specifies the optional services that are 
to be used with the BDAM data set. These options are 
related to the type of addressing used, the extended search 
option, block position feedback, and write-validity 
checking. The following describes the characters that can 
be specified (the characters can be specified in any order, 
and no commas are allowed between characters): 

A 

specifies that actual device addresses (MBBCCHHR) are 
provided to the system when READ or WRITE macro 
instructions are issued. 

E 

specifies that the extended search option is used to 
locate data blocks or available space where a data 
block can be added. When the extended search option 
is specified, the number of blocks or tracks to be 
searched must be specified in the LIMCT operand. The 
extended search option is ignored if actual addressing 
(OPTCD=A) is also specified. The extended search 
option requires that the data set have keys and that 
the search be made by key (by specifying DK in the 
READ or WRITE macro or DA in the WRITE macro). 

F 

specifies that block position feedback requested by a 
READ or WRITE macro instruction is to be in the same 
form that was originally presented to the system in 
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the READ or WRITE macro instruction. If the F operand 
is omitted, the system provides feedback, when 
requested, in the form of an 8-byte actual device 
address. (Feedback is always provided if exclusive 
control is requested.) 


R 

specifies that relative block addresses (in the form 
of 3-byte binary numbers) are provided to the system 
when a READ or WRITE macro instruction is issued. 

W 

specifies that the system is to perform a validity 
check for each record written. 

Note: Relative track addressing can only be specified by 

omitting both A and R from the OPTCD operand. If you want 
to specify relative track addressing after your data set 
has been accessed using another addressing scheme (OPTCD=A 
or R), you should either specify a valid OPTCD operand (E t 
F> or W) in the DCB macro or DD card when you reopen your 
data set, or zero out the OPTCD=A or R bits in the data 
control block exit routine. Note that the first method 
will prevent the open routines from merging any of the 
other OPTCD bits from the format-1 DSCB in the DCB. Both 
methods will update the OPTCD in the DSCB if the open is 
for OUTPUT, OUTIN, or UPDAT. 

Source: The OPTCD operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the DCB open 
exit routine. 

RECFM=CU|VCS|BS3IFCT33 

The RECFM operand specifies the format and characteristics 
of the records in the data set. The following describes 
the characters that can be coded (if the optional 
characters are coded, they must be coded in the order shown 
above) : 

B 

specifies that the data set contains blocked records. 
The record format RECFM=VBS is the only combination in 
which B can be specified. RECFM=VBS does not cause 
the system to process spanned records; the problem 
program must block and segment the records. RECFM=VBS 
is treated as a variable-length record by BDAM. 

F 

specifies that the data set contains fixed-length 
records. 

S 

specifies that the data set contains variable-length 
spanned records when it is coded as RECFM=VS. When 
RECFM=VBS is coded, the records are treated as 
variable-length records, and the problem program must 
block and segment the records. 

T 

specifies that track overflow is to be used with the 
data set. Track overflow allows a record to be 
partially written on one track and the remainder is 
written on the following track (if required). 

U 

specifies that the data set contains undefined-length 
records. 

V 

specifies that the data set contains variable-length 
records. 
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Source: The RECFM operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, the 
problem program before completion of the data control block 
exit routine, or by the data set label of an existing data 
set. 

SYNAD= relexp 

The SYNAD operand specifies the address of the error 
analysis routine to be given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. Nhen control is returned in this manner, the 
system returns control to the problem program and proceeds 
as though no error had been encountered. Nhen a BDAM data 
set is being created, a return from the error analysis 
routine to the system causes abnormal termination of the 
task. 

If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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DCB—CONSTRUCT A DATA CONTROL BLOCK (BISAM) 


The data control block for the basic indexed sequential access 
method (BISAM) is constructed during assembly of the problem 
program. The DSORG and MACRF operands must be coded in the DCB 
macro instruction, but the other DCB operands can be supplied 
from other sources. Each BISAM DCB operand description contains 
a heading, "Source.” The information under this heading 
describes the sources of the operand that can be supplied to the 
data control block. 

The DCB macro for BISAM is written: 


[ symbol 3 


DCB 


EBFALN={F|D}3 
[,BUFCB= relexp 3 
[,BUFL^ab sexp 3 
[,BUFNO= absexp ] 

[,DDNAME= svrobo1 3 1 
,DSORG=IS 
E,EXLST=r elex p3 
,MACRF={{(RES3EC3)} 

C(WCUEA3I A}EC3)} 

UREUES3 |S3EC3,W{UEA3 |AJEC3)JJ 
E,MSHI= relexp 3 
E , MS\7A= rel exp 3 
E,NCP-a bsexp] 

,OPTCD={(EL3ER3EW3)} 

E,SMSI= absexp 3 
E ,SMSW= absexp 3 
E,SYNAD= relexp 3 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the DCB operands that can be supplied 
when the basic indexed sequential access method is used: 

BFALN=£F|DJ 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is acquired 
for use with dynamic buffering or when the buffer pool is 
constructed by a GETPOOL macro instruction. If the BFALN 
operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

fi 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool, or the problem program controls all buffering, 
the problem program must provide an area for the buffers 
and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFCB= relexp 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If dynamic buffering is requested or the buffer pool is 
constructed by a GETPOOL macro instruction, the system 
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places the address of the buffer pool control block into 
the data control block* and the BUFCB operand must be 
omitted. The BUFCB operand must be omitted if the problem 
program controls all buffering. 

Source: The BUFCB operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL= absexp (maximum value is 32760) 

The BUFL operand specifies the length of each buffer to be 
constructed by a BUILD or GETPOOL macro instruction. When 
the data set is opened* the system computes the minimum 
length required and verifies that the length in the buffer 
pool control block is equal to or greater than the minimum 
required. The system then inserts the computed length into 
the BUFL field of the data control block. 

If dynamic buffering is requested* the system computes the 
buffer length required* and the BUFL operand is not 
required. 

If the problem program controls all buffering* the BUFL 
operand is not required. However* an ISAM data set 
requires additional buffer space for system use. For a 
description of the buffer length required for various ISAM 
operations* see Data Administration Guide . 

Source: The BUFL operand can be supplied in the DCB macro 

instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQ= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers requested 
for use with dynamic buffering* or it specifies the number 
of buffers to be constructed by a BUILD macro instruction. 
If dynamic buffering is requested but the BUFNO operand is 
omitted* the system automatically acquires two buffers for 
use with dynamic buffering. 

If the GETPOOL macro instruction is used to construct the 
buffer pool* the BUFNO operand is not required. 

Source: The BUFNO operand can be supplied in the DCB macro 

instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the data 
control block exit routine. 

DDNAME= svmbol 

The DDNAME operand specifies the name used to identify the 
job control language data definition statement that defines 
the ISAM data set to be processed. 

Source: The DDNAME operand can be supplied in the DCB 

macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DS0RG=IS 

The DSORG operand specifies the indexed sequential 
organization of the data set. IS is the only combination 
of characters that can be coded for BISAM. 

Source: Unless it is for a data set passed from a previous 

job step* the DSORG operand must be coded in the DCB macro 
instruction and in the DCB subparameter of a DD statement. 
In this case* DSORG may be omitted from the DD statement. 

EXLST=nQl ex p 

The EXLST operand specifies the address of the problem 
program exit list. If the problem program uses the data 
control block exit routine for additional processing* the 
EXLST operand is required. 
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For the format and requirements for exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 197. For additional information about exit list 
processing, see DataAdminlstrati qj\_G.u ide . 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program before the associated 
exit is required. 

MACRF={{lRCS][C3)} 

{(W{U[A]I A}[C3)} 

{ CRtUCSl | S 3 C C ], V/{UC A3 1 A} C C 3 )}} 

The MACRF operand specifies the type of macro instructions 
(READ, WRITE, CHECK, WAIT, and FREEDBUF) and type of 
processing (add records, dynamic buffering, and update 
records) to be used with the data set being processed. The 
operand can be coded in any of the combinations shown 
above; the following describes the characters that can be 
coded: 

A 

specifies that new records are to be added to the data 
set. This character must be coded if NRITE KN macro 
instructions are used with the data set. 

C 

specifies that the CHECK macro instruction is used to 
test I/O operations for completion. If C is not 
coded, NAIT macro instructions must be used. 

R 

specifies that READ macro instructions are to be used. 
S 

specifies that dynamic buffering is requested in READ 
macro instructions. S should not be specified if the 
problem program provides the buffer pool. 

U 

specifies that records in the data set will be updated 
in place. If U is coded in combination with R* it 
must also be coded in combination with W. For 
example, MACRF=(RU, WU ). 

W 

specifies that NRITE macro instructions are to be 
used. 

Source: The MACRF operand must be coded in the DCB macro 

instruction. 

MSHI= relexp 

The MSHI operand specifies the address of the storage area 
used to contain the highest-level master index for the data 
set. The system uses this area to reduce the search time 
required to find a given record in the data set. The MSHI 
operand is coded only when the SMSI operand is coded. 

Source: The MSHI operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

MSWA= relexp 

The MSWA operand specifies the address of the storage work 
area to be used by the system when new records are being 
added to the data set. This operand is optional, but the 
system acquires a minimum-size work area if the operand is 
omitted. The MSWA operand is coded only when the SMSW 
operand is coded. 

Processing efficiency can be increased if more than a 
minimum-size work area is provided. For more detailed 
information about work area size, see Data Administration 
fiui-dLe. 
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Note: QISAM uses the DCBMSHA/ DCBSMSI/ and DCBSMSW fields 

in the data control block as a work area; these fields 
contain meaningful information only when the data set is 
opened for BISAM. 

Source: The MSWA operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

NCP= absexp (maximum value is 99) 

The NCR operand specifies the maximum number of READ/HRITE 
macro instructions that are issued before the first CHECK 
(or HAIT) macro instruction is issued to test for 
completion of the I/O operation. The maximum number that 
can be specified may be less than 99/ depending on the 
amount of virtual storage available in the region. If the 
NCP operand is omitted/ 1 is assumed. If dynamic buffering 
is used/ the value specified for the NCP operand must not 
exceed the number of buffers specified in the BUFNO 
operand. 

Source: The NCP operand can be supplied in the DCB macro 

instruction/ in the DCB subparameter of a DD statement/ or 
by the problem program before completion of the data 
control block open exit routine. 

OPTCD={[L3[R]LW]} 

The OPTCD operand specifies the optional services performed 
by the control program. All optional services must be 
requested by one method; that is, by the data set label of 
an existing data set/ this macro/ or the DD statement on 
the DCB parameter. However/ it can be modified by the 
problem program. The characters may be coded in any order 
and/ when used in combination/ no commas are permitted 
between characters. 

L 

specifies that the control program delete records that 
have a first byte of all l's. (These records can be 
deleted when space is required for new records. To 
use the delete option/ the relative key position (RKP) 
must be greater than 0 for fixed-length records and 
greater than 4 for variable-length records.) 

R 

specifies that the control program place 
reorganization criteria information in certain fields 
of the data control block. (The problem program can 
analyze these statistics to determine when to 
reorganize the data set. This option is provided 
whenever the OPTCD operand is omitted from all 
sources.) 

W 

specifies a validity check for write operations on 
direct access devices. 

SMSI= absexp (maximum value is 65535) 

The SMSI operand specifies the length/ in bytes/ required 
to contain the highest-level master index for the data set 
being processed. The size required can be determined from 
the DCBNCRHI field of the data control block. Nhen an ISAM 
data set is created (with QISAM)/ the size of the 
highest-level index is inserted into the DCBNCRHI field. 

If the value specified in the SMSI operand is less than the 
value in the DCBNCRHI field/ the task is abnormally 
terminated. 

Note: QISAM uses the DCBMSWA/ DCBSMSI/ and DCBSMSW fields 

as a work area; these fields contain meaningful information 
only when the data set is opened for BISAM. 
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Source: The SMSI operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

SMSW= absexp (maximum value is 65535) 

The SMSW operand specifies the length, in bytes, of a work 
area that is used by BISAM. This operand is optional, but 
the system acquires a minimum-size work area if the operand 
is omitted. The SMSW operand is coded only when the MSWA 
operand is also coded. If the SMSW operand is coded but 
the size specified is less than the minimum required, the 
task is abnormally terminated. Data Administration Guide 
describes the methods of calculating the size of the work 
area . 

If unblocked records are used, the work area must be large 
enough to contain all the count fields (8 bytes each), key 
fields, and data fields contained on one direct access 
device track. 

If blocked records are used, the work area must be large 
enough to contain all the count fields (8 bytes each) and 
data fields contained on one direct access device track 
plus additional space for one logical record (LRECL value). 

Note: QISAM uses the DCBMSWA, DCBSMSI, and DCBSMSW fields 

in the data control block as a work area; these fields 
contain meaningful information only when the data set is 
opened for BISAM. 

Source: The SMSW operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

SYNAD= relexp 

The SYNAD operand specifies the address of the error 
analysis routine given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13 because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. When control is returned in this manner, the 
system returns control to the problem program and proceeds 
as though no error had been encountered. If the error 
analysis routine continues processing, the results are 
unpredictable. 

If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error analysis routine address at any 
time. 




v. y 
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DCB—CONSTRUCT A DATA CONTROL BLOCK (BPAM) 

The data control block for the basic partitioned access method 
(BPAM) is constructed during assembly of the problem program. 

The DSORG and MACRF operands must be specified in the DCB macro 
instruction, but the other DCB operands can be supplied from 
other sources. Each of the BPAM DCB operand descriptions 
contains a heading, "Source.” The information under this 
heading describes the sources that can supply the operand to the 
data control block. 

The DCB macro for BPAM is written: 


[ symbol 3 


DCB 


EBFALN={F|D}3 
E,BLKSIZE= absexp 3 
[,BUFCB= relexp ] 

[»BUFL= absexp ] 

[,BUFN0= absexp 3 
[,DDNAME= svmbol 3 1 
f DSORG={PO|POUJ 
[ > E0DAD= reiexp 3 
[,EXLST= relexp 3 
E,KEYLEN= absexp 3 
[ p LRECL=absexp3 
,MACRF={(RjW|R,W)} 1 
[ 9 NCP= abs exp3 
[ 9 OPTCD={£C|WEC3} 

{CIHEC3J 

{C|W[H3CC3}}3 

[,RECFM=CCUCT3CA|M33 

CVCBCT31T3 EAIM33 
{FEBET3IT3EAIM3333 
E 9 SYNAD= relexp 3 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

When you create or process a BPAM data set, you can specify the 
following DCB operands: 

BFALN={F|DJ 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. The 
characters that can be specified in the BFALN operand are: 

F 

specifies that each buffer is aligned on a fullword 
boundary that is not also a doubleword boundary. 


specifies that each buffer is aligned on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide an area for the 
buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BLKSIZE= absexp (maximum value KEYLEN + BLKSIZE is 32760) 

The BLKSIZE operand specifies the length, in bytes, of each 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, for variable-length or 
undefined-length records. If keys are used, the length of 
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the key is not included in the value specified for the 
BLKSIZE operand. 

The actual block size that can be specified depends on the 
record format and the type of direct access device being 
used. If track overflow is used, the block size can be up 
to the maximum. If track overflow is not used, the maximum 
block size is determined by the track capacity of a single 
track on the direct access device being used. Device 
capacity for direct access devices is described in 
Appendix C, "Device Capacities” on page 194. For 
additional information about device capacity and space 
allocation, see Data Administration Guide . 

For variable-length records, the value specified in the 
BLKSIZE operand must include the maximum logical record 
length (up to 32756 bytes) plus 4 bytes for the block 
descriptor word (BDW). 

For undefined-length records, the value specified for the 
BLKSIZE operand can be altered by the problem program when 
the actual length becomes known to the problem program. 

The value can be inserted into the DCBBLKSI field of the 
data control block or specified in the length operand of a 
READ/WRITE macro instruction. 

Source: The BLKSIZE operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

BUFCB= relexp 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If the buffer pool is constructed automatically or by a 
GETPOOL macro instruction, the system places the address of 
the buffer pool control block into the data control block 
and the BUFCB operand can be omitted. Also, if the problem 
program controls all buffering, the BUFCB operand should be 
omitted. 

Source: The BUFCB operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL= absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is acquired 
automatically. If the BUFL operand is omitted and the 
buffer pool is acquired automatically, the system acquires 
buffers with a length that is equal to the sum of the 
values specified in the KEYLEN and BLKSIZE operands. If 
the problem program requires longer buffers, the BUFL 
operand should be specified. 

If the problem program controls all buffering, the BUFL 
operand is not required. 

Source: The BUFL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNO= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
the number of buffers to be acquired automatically by the 
system. 


zf . 



44 MVS/XA Data Administration: Macro Instruction Reference 



DCB (BPAM) 


If the problem program controls all buffering or if the 
buffer pool is constructed by a GETPOOL macro instruction, 
the BUFNO operand should be omitted. 

Source: The BUFNO operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

DDNAME= svmbol 

The DDNAME operand specifies the name used to identify the 
job control language data definition CDD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB 

macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DSORG={PO|POUJ 

The DSORG operand specifies the data set organization and 
whether the data set contains any location-dependent 
information that would make it unmovable. The characters 
that can be specified are: 

PO 

specifies a partitioned data set organization. 

POU 

specifies a partitioned data set organization and that 
the data set contains location-dependent information. 

Note: If BSAM or QSAM is used to add or retrieve a single 

member of a partitioned data set, a sequential access 
method is being used, and the DSORG operand is specified as 
PS or PSU. The name of the member being processed in this 
manner is supplied in a DD statement. 

Source: The DSORG operand must be specified in the DCB 

macro instruction. 

EODAD= rele xp 

The EODAD operand specifies the address of the routine 
given control when the end of the input data set is 
reached. Control is given to this routine when an input 
request is made (READ macro instruction) and there are no 
additional input records to retrieve. The routine is 
entered when a CHECK macro instruction is issued and the 
end of the data set is reached. If the end of the data set 
is reached and no EODAD address has been supplied, the task 
is abnormally terminated. For additional information on 
the EODAD routine, see Pata Adroinistration_Guide . 

Source: The EODAD operand can be supplied in the DCB macro 

instruction or by the problem program before the end of the 
data set is reached. 

EXLST= relexp 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program uses the data control block exit routine 
for additional processing or if the DCB abend exit is used 
for abend condition analysis. 

For the format and requirements of the exit list 
processing, see Appendix D, ”DCB Exit List Format and 
Contents” on page 197. For additional information about 
exit list processing, see Data Administration Guide . 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program before the OPEN macro 
instruction is issued to open the data set. 
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KEYLEN= abse xp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, of the 
key associated with each data block in the direct access 
device data set. If the key length is not supplied from 
any source by the end of the data control block exit 
routine, a key length of zero (no keys) is assumed. 

Source: The KEYLEN operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by the data set 
label of an existing data set. If KEYLEN=0 is specified 
in the DCB macro instruction, a special indicator is set in 
RECFM so that KEYLEN cannot be supplied from the DCB 
subparameter of a DD statement or data set label of an 
existing data set. KEYLEN=0 can be coded only in the DCB 
macro instruction and will be ignored if specified in the 
DD statement. 

LRECL= absexp (maximum value is 32760) 

The LRECL operand specifies the length, in bytes, of each 
fixed-length logical record in the data set; It is required 
only for fixed-length records. The value specified in the 
LRECL operand cannot exceed the value specified in the 
BLKSIZE operand. 

If the records are unblocked, the value specified in the 
LRECL operand must equal the value specified in the BLKSIZE 
operand. If the records are blocked, the value specified 
in the LRECL operand must be evenly divisible into the 
value specified in the BLKSIZE operand. 

Source: The LRECL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 

MACRF={(R|W|R,W)} 

The MACRF operand specifies the type of macro instructions 
(READ, WRITE, and NOTE/POINT) that are used to process the 
data set. The characters that can be specified are: 

R 

specifies that READ macro instructions are to be used. 
This operand automatically provides the capability to 
use both the NOTE and POINT macro instructions with 
the data set. 

W 

specifies that WRITE macro instructions are to be 
used. This operand automatically provides the 
capability to use both the NOTE and POINT macro 
instructions with the data set. 

All BPAM READ and WRITE macro instructions issued must be 
tested for completion using a CHECK macro instruction. The 
MACRF operand does not require any coding to specify that a 
CHECK macro instruction will be used. 

Source: The MACRF operand must be specified in the DCB 

macro instruction. 

NCP= absexp (maximum value is 99) 

The NCR operand specifies the maximum number of READ and 
WRITE macro instructions that will be issued before the 
first CHECK macro instruction is issued. The maximum 
number may be less than 99, depending on the amount of 
virtual storage available in the region. If chained 
scheduling is specified, the value of NCP determines the 
maximum number of channel program segments that can be 
chained and must be specified as more than 1. If the NCP 
operand is omitted, 1 is assumed. 
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Source: The NCP operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block open exit routine. 

0PTCD={{C|WCC3} 

CCIHCC3J 

CCIWCH3CC3}} 

The OPTCD operand specifies the optional services performed 
by the system. The characters that can be specified Cin 
any order, in any combination, and without commas between 
characters) are: 

C 

specifies that chained scheduling is used. This 
option is ignored for direct access devices. 

H 

If 0PTCD=H is coded in the DCB parameters of a DD 
statement, H specifies that, if a partitioned data set 
is being opened for input and resides on an MSS 
device, then, at OPEN time, the data set is to be 
staged to EOF on the virtual DASD device. 

W 

specifies that the system is to perform a validity 
check for each record written. 

Source: The OPTCD operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before an OPEN macro instruction is 
issued to open the data set. However, all optional 
services must be requested from the same source. 

RECFM=C{UCT3[A|M3} 

CVCBCT3 3|CT3 CA|M3J 
CFCBCT3 31CT3 CA|M3}J 

The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 
All the record formats shown above can be specified, but in 
those formats that show blocked records, the problem 
program must perform the blocking and deblocking of logical 
records; BPAM recognizes only data blocks. The characters 
that can be specified are: 

A 

specifies that the records in the data set contain 
ISO/ANSI/FIPS control characters. For a description 
of control characters, see Appendix E, “Control 
Characters" on page 199. 

B 

specifies that the data set contains blocked records. 

F 

specifies that the data set contains fixed-length 
records. 

M 

specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 199. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track of a direct access device and 
the remainder of the record written on the following 
track (if required). Chained scheduling (OPTCD=C) 
cannot be used if the track overflow is used. 
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U 

specifies that the data set contains undefined-length 
records. 

V 

specifies that the data set contains variable-length 
records. 

Source: The RECFM operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 

SYNAD= relex p 

The SYNAD operand specifies the address of the error 
analysis (SYNAD) routine to be given control when an 
uncorrectable input/output error occurs. The contents of 
the registers when the error analysis routine is given 
control are described in Appendix A, "Status Information 
Following an Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can return control to the system by 
issuing a RETURN macro instruction. If control is returned 
to the system, the system returns control to the problem 
program and proceeds as though no error had been 
encountered. 

If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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DCB—CONSTRUCT A DATA CONTROL BLOCK (BSAM) 

The data control block for the basic sequential access method 
(BSAM) is constructed during assembly of the problem program. 

The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other DCB operands can be supplied to the 
data control block from other sources. Each DCB operand 
description contains a heading, "Source." The information under 
this heading describes the sources of an operand that can be 
supplied. 

The DCB macro for BSAM is written! 


[ symbol ] 


DCB 


[BFALN=£F|DJ] 

[,BFTEK=R] 

[,BLKSIZE" absexp 3 
[»BUFCB= relexp ] 

[>BUFL= absexp ] 

[,BUFN0=a bsexp 3 
[,BUFOFF=T absexp |L}3 
[ .DDNAME= svmbol 3 1 
[»DEVD=£{DA 

[ t KEYLEN= absexp ]T 
CTA 

[, DEN={1121314}3 
[ , TRTCH=CC|EIETITJ 3} 
tPR 

[»PRTSP={0|11213}3} 

{PC 

[,MODE= EC IE33 

[,STACK=£1|2}3 

[» FUNC={11P|PWCXT3IRIRPTD3| 

RWIT31RWPIXT3 CD3IWCT3J3 

CRD 

[,MODE=[C|E3[01R3 3 
[,STACK={1|2J3 
[,FUNC=£I|P|PW[XT3|R|RPtD3| 

RW1T3|RWPCXT3[D3|W[T3}3}3 
, DS0RG=£ PS|PSUJ 1 
[,E0DAD= relexp 3 
[ t EXLST= relexp 3 
[ ,KEYLEN= absexp 3 
[ t LRECL=£ absexp I XT 3 
,MACRF={{(RCC|P3 

{(WtC|PIL] )> 

{(Rrcips^wtcipsm 1 

[ r NCP= absexp 3 
[,0PTCD=£{BJ 
{T} 

{UCC3} 

{CCT3[B3[U3} 

{HCZ3CB3J 
{J[C3 CU3J 
{W[C3IT 3[B3[U3J 
{Z[C3[T3[B3[U3J 
{Q[C3C B 3IT|Z3JJ3 
[,RECFM={{U[T3[A|M3J 

{V[BISIT|BS|BT3[A|M3} 

{D[B|S|BS3[A3J 
{F[B|S|T|BS|BT3CA|M33J3 
[,SYNAD= relexp 3 


This parameter must be supplied before an OPEN macro is 
issued for this DCB; it cannot be supplied in the open exit 
routine. 
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The following describes the operands that can be specified in 
the DCB macro instruction for a BSAM data set: 

BFALN={FID} 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. 

If the data set being created or processed contains 
ISCII/ASCII tape records with a block prefix, the block 
prefix is entered at the beginning of the buffer, and data 
alignment depends on the length of the block prefix. For a 
description of how to specify the block prefix length, see 
the description of the DCB BUFOFF operand. 

The characters that can be specified are: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

S 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide an area for the 
buffers and control buffer alignment. 

Source; The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
operands are specified, they must be supplied by the same 
source. 

BFTEK=R 

The BFTEK=R operand specifies that BSAM is used to read 
unblocked variable-length spanned records with keys from a 
BDAM data set. Each read operation reads one segment of 
the record and places it in the area designated in the READ 
macro instruction. The first segment enters at the 
beginning of the area, but all subsequent segments are 
offset by the length of the key (only the first segment has 
a key). The problem program must provide an area in which 
it can assemble a record, identify each segment, and 
assemble the segments into a complete record. 

Source: The BFTEK operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 

BLKSIZE= absexp (maximum value KEYLEN + BLKSIZE is 32760) 

The BLKSIZE operand specifies the maximum block length in 
bytes. For fixed-length, unblocked records, this operand 
specifies the record length. The BLKSIZE operand includes 
only the data block length; if keys are used, the length of 
the key is not included in the value specified for the 
BLKSIZE operand. 

The actual value that can be specified in the BLKSIZE 
operand depends on the device type and the record format 
being used. Device capacity is shown in 
Appendix C, "Device Capacities" on page 194. For 
additional information about device capacity, see Data 
AdfflinA s± r a-tlQJCL. -£ .UJjte * 
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For direct access devices when track overflow is used or 
variable-length spanned records are being processed, the 
value specified in the BLKSIZE operand can be up to the 
maximum value. For other record formats used with direct 
access devices, the value specified for BLKSIZE cannot 
exceed the capacity of a single track. 

If fixed-length records are used, the value specified in 
the BLKSIZE operand should be an integral multiple of the 
value specified for the logical record length (LRECL). 

If variable-length records are used, the value specified in 
the BLKSIZE operand must include the maximum logical record 
length (up to 32756 bytes) plus the 4 bytes required for 
the block descriptor word (BDH). For format-D 
variable-length records (ISCII/ASCII data sets), the 
minimum value for BLKSIZE is 18 bytes. The maximum value 
is 2048 bytes. For additional information about the 
BLKSIZE restrictions, see Data Administration Guide . 

If ISCII/ASCII tape records with a block prefix are 
processed, the value specified in the BLKSIZE operand must 
also include the length of the block prefix. 

If BSAM is used to read variable-length spanned records 
from a BDAM data set, the value specified for the BLKSIZE 
operand must be as large as the longest possible record 
segment in the BDAM data set, including 4 bytes for the 
segment descriptor word (SDN) and 4 bytes for the block 
descriptor word (BDN). 

If undefined-length records are used, the value specified 
for the BLKSIZE operand can be altered by the problem 
program when the actual length becomes known to the problem 
program. The value can be inserted directly into the 
DCBBLKSI field of the data control block or specified in 
the length operand of a READ/NRITE macro instruction. 

Source: The BLKSIZE operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

Note: The maximum block size for Version 3 ISO/ANSI/FIPS 

tapes (ISO 1001-1979 and ANSI X3.27-1978) is 2048 bytes. 

An attempt to exceed 2048 bytes for a Version 3 tape 
results in a label validation installation exit being 
taken. 

BUFCB= relexp 

The BUFCB operand specifies the address of the buffer pool 
control block in a buffer pool constructed by a BUILD macro 
instruction. 

If the buffer pool is to be constructed automatically or by 
a GETPOOL macro instruction, the system places the address 
of the buffer pool control block into the data control 
block, and the BUFCB operand should be omitted. If the 
problem program is to control all buffering, the BUFCB 
operand is not required. 

Source: The BUFCB operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL= absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, for each 
buffer in the buffer pool when the buffer pool is acquired 
automatically. The system acquires buffers with a length 
equal to the sum of the values specified in the KEYLEN and 
BLKSIZE operands if the BUFL operand is omitted; if the 
problem program requires larger buffers, the BUFL operand 
must be specified. If the BUFL operand is specified, it 
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must be at least as large as the value specified in the 
BLKSIZE operand. If the data set is for card image mode, 
the BUFL operand should be specified as 160. The 

description of the DEVD operand contains a description of \ 

card image mode. f ^ 

If the data set contains ISCII/ASCII tape records with a 
block prefix, the value specified in the BUFL operand musl 
include the block length plus the length of the block 
prefix. 

If the problem program is to control all buffering or if 
the buffer pool is to be constructed by a GETPOOL or BUILD 
macro instruction, the BUFL operand is not required. 

Source: The BUFL operand can be supplied in the DCB macro 

instruction, in the DCB keyword on a DD statement, or by 
the problem program before completion of the data control 
block exit routine. 


BUFNO" absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers 
constructed by a BUILD macro instruction or the number of 
buffers to be acquired automatically by the system. 

If the problem program controls all buffering or if the 
buffer pool is constructed by a GETPOOL macro instruction, 
the BUFNO operand should be omitted. 

Source: The BUFNO operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BUFOFF=Cabsexp|L} 

The BUFOFF operand specifies the length, in bytes, of the 
block prefix used with an ISCII/ASCII tape data set. When 
BSAM is used to read an ISCII/ASCII tape data set, the 
problem program must use the block prefix length to 
determine the location of the data in the buffer. When 
BSAM is used to write an output ISCII/ASCII tape data set, 
the problem program must insert the block prefix into the 
buffer, followed by the data (BSAM considers the block 
prefix as data). The block prefix and data can consist of 
any characters that can be translated into 7-bit 
ISCII/ASCII code; any character that cannot be translated 
is replaced with a substitute character. (For a more 
detailed description of ISCII/ASCII translation 

characteristics, see M a ^ rm± j c_,Tap e . JL ab s , 1 s. a nd. E l 1 Q 

Structure .) For format-D records, the RDW must be binary; 
if RECFM=D and BUFQFF=L, the RDW and BDW must both be 
binary. On output, the control program translates the BDW 
and RDW to ISCII/ASCII characters and, on input, the 
control program converts ISCII/ASCII data to BDW and RDW. 
The following can be specified in the BUFOFF operand: 


specifies the length, in bytes, of the block prefix. 
This value can be from 0 to 99 for an input data set 
The value must be 0 for writing an output data set 
with fixed-length or undefined-length records (BSAM 
considers the block prefix part of the data record). 


specifies that the block prefix is 4 bytes long and 
contains the block length. BUFOFF=L is used when 
format-D records (ISCII/ASCII) are processed. When 
BUF0FF=L is specified, the BSAM problem program can 
process the data records (using READ and WRITE macro 
instructions) in the same manner as if the data were 
in format-V variable-length records. For further 
information on this operand, see "Variable-Length 
Records—Format D" in 




4 

% 
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If the BUFOFF operand is omitted for an input data set with 
format-D records, the system inserts the record length into 
the DCBLRECL field of the data control block; the problem 
program must obtain the length from this field to process 
the record. 

If the BUFOFF operand is omitted from an output data set 
with format-D records, the problem program must insert the 
actual record length into the DCBBLKSI field of the data 
control block or specify the record length in the length 
operand of a WRITE macro instruction. 

Source: The BUFOFF operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, or by the problem program before an OPEN macro 
instruction is issued to open the data set. BUFQFF=absexp 
can also be supplied by the label of an existing data set; 
BUF0FF=L cannot be supplied by the label of an existing 
data set. 

DDNAME=symbol 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB macro 
instruction or by the problem program before an OPEN macro 
instruction is issued to open the data set. 

DEVD={DAITA|PR|PC|RD}C, options 3 

The DEVD operand specifies the device type where the data 
set can or does reside. The device types above are shown 
with the optional operand(s) that can be coded when a 
particular device is used. The devices are listed in order 
of device independence. For example, if DEVD=DA is coded 
in a DCB macro instruction (or the DEVD operand is omitted, 
which causes a default to DA), the data control block 
constructed during assembly could later be used for any of 
the other devices, but, if DEVD=RD is coded, the data 
control block can be used only with a card reader or card 
reader punch. Unless you are certain that device 
interchangeability is not required, you should either code 
DEVD=DA or omit the operand and allow it to default to DA. 

If system input is directed to an intermediate storage 
device, the DEVD operand is omitted, and the job control 
language for the problem program designates the system 
input device to be used. Likewise, if system output is 
directed to an intermediate storage device, the DEVD 
operand is omitted, and the job control language for the 
problem program designates the system output device to be 
used. If DEVD=PR, PC, or RD is coded, the DCB macro should 
not be coded within the first 16 bytes of addressability 
for the control section. 

The DEVD operand is discussed below according to individual 
device type: 

DEVD=M 

C,KEYLEN= absexp ] 

specifies that the data control block can be used for 
a direct access device (or any of the other device 
types described following DA). 

KEYLEN= absexp 

The KEYLEN operand can be specified only for data 
sets that reside on direct access devices. 

Because the KEYLEN is usually coded without a 
DEVD operand (default taken), the description of 
the KEYLEN operand is in alphabetic sequence with 
the other operands. 
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DEVD=TA 

lf DEN=£1121314}] 

[ t TRTCH=£C|EIETITJ 3 

Specifies that the data control block can be used for 
a magnetic tape data set (or any of the other device 
types described following TA). If TA is coded, the 
following optional operands can be coded: 


DEN=£1|2|3|4} 

The DEN operand specifies the recording density 
in the number of bits-pei—inch per track as shown 
in the following: 

Recording Density 


DEN 7-Track 9-Track 


13-Track 


1 556 

2 800 

3 N/A 

4 N/A 


N/A N/A 
800 (NRZI) 1 N/A 
1600 (PE) 2 N/A 
6250 (GCR) 3 N/A 


NRZI is for nonreturn-to—zero inverted mode. 


PE is for phase encoded mode. 

GCR is for group coded recording mode. 


If the DEN operand is not supplied by any source, 
the highest applicable density is assumed. 

TRTCH=CC|E|ET|T} 

The TRTCH operand specifies the recording 
technique for 7-track tape. One of the above 
4-character combinations can be coded. If the 
TRTCH operand is omitted, odd parity with no 
translation or conversion is assumed. The 
characters that can be specified are: 


C 

specifies that the data-conversion feature 
is used with odd parity and no translation. 

E 

specifies even parity with no translation or 
conversion. 

ET 

specifies even parity with BCDIC to EBCDIC 
translation required and no data-conversion 
feature. 

T 

specifies that BCDIC to EBCDIC translation 
is required with odd parity and no 
data-conversion feature. 

DEVD=PR 

[ f PRTSP={0111 213}] 

Specifies that the data control block is used for an 
on-line printer (or any of the other device types 
following PR). If PR is coded, the following optional 
operand can be coded: 

PRTSP=C0111213} 

The PRTSP operand specifies the line spacing on 
the printer. This operand is not valid if the 
RECFM operand specifies either machine (RECFM=M), 
ISO/ANSI/FIPS (RECFM=A) control characters. If 
the PRTSP operand is not specified from any 
source, 1 is assumed. 


o 
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The characters that can be specified are: 


0 

specifies that spacing is suppressed (no 
space) . 

1 

specifies single spacing. 

2 

specifies double spacing (one blank line 
between printed lines). 

3 

specifies triple spacing (two blank lines 
between printed lines). 


DEVD=PC 

[ f MODE= CC|E) 

[ y STACK=£1|2}] 

C t FUNC={I IPIPWCXT3IRIRPED3IRWCT3|RWPCXT3 CD31 WET]}) 

Specifies that the data control block is used for a 
card punch (or any of the other device types following 
PC). If PC is coded/ the following optional operands 
can be specified: 

M0DE=EC|I3 

The MODE operand specifies the mode of operation 
for the card punch. The characters that can be 
specified (if the MODE operand is omitted/ E is 
assumed) are: 


C 

specifies that the cards are to be punched 
in card image mode. In card image mode/ the 
12 rows in each card column are punched from 
two consecutive bytes in virtual storage. 
Rows 12 through 3 are punched from the 
low-order 6 bits of one byte and rows 4 
through 9 are punched from the low-order 6 
bits of the following byte. 


specifies that cards are to be punched in 
EBCDIC code. 

STACK={11 2} 

The STACK operand specifies the stacker bin where 
the card is placed after punching is completed. 

If this operand is omitted/ stacker number 1 is 
used. The characters that can be specified are: 

1 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNC=CI|P|PWCXT3IRIRPCD3IRWET3IRWPCXT3ED3IWET3} 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources/ a data set 
opened for input defaults to read only/ and a 
data set opened for output defaults to punch 
only. The characters that can be specified in 
the FUNC operand are: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used, an 80-byte 
data protection image (DPI) must have been 
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previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output/punch 
portion of a read and punch or read punch 
and print operation. 


I 

specifies that the data in the data set is 
to be punched into cards*and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line print option is 
used. The two-line print option allows two 
lines of data to be printed on the card 
(lines 1 and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case, the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified, the data 

protection image (DPI) must be specified in the 
FCB parameter of the DD statement for the data 
set. 


DEVD=RD 

C,MODE=CC|E]CO|R]3 
[>STACK=£11 2}3 

[,FUNC=£I|P|PWEXT3IRIRPED3IRWET3IRWPEXT3CD31WET3} 3 

Specifies that the data control block is used with a 
card reader or card read punch. If RD is specified, 
the data control block cannot be used with any other 
device type. When RD is coded, the following optional 
operands can be specified: 

MODE=EC|I3EO|R3 

The MODE operand specifies the mode of operation 
for the card reader. The characters that can be 
specified are: 

C 

specifies that the cards to be read are in 
card image mode. In card image mode, the 12 
rows in each card column are read into two 
consecutive bytes of virtual storage. Rows 
12 through 3 are read into one byte and rows 
4 through 9 are read into the following 
byte. 
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£ 

specifies that the cards to be read contain 
data in EBCDIC code. 

0 

specifies that the program runs in 
optical-mark-read mode (3505 card reader). 

R 

specifies that the program runs in 
read-column-eliminate mode (3505 card reader 
or 3525 card punch, read feature). 

Note: If the MODE operand for a 3505 or 3525 is 

specified in the DCB subparameter of a DD 
statement, either C or E must be specified if R 
or 0 is specified. 

STACK=C1I2} 

The STACK operand specifies the stacker bin where 
the card is placed after reading is completed. 

If this operand is omitted, stacker number 1 is 
used. The characters that can be specified are: 

1 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNC={11 P | PWCXT] | R| RPCD3 | RWLT31 RWPCXT] CD3 \VIIT17 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources, a data set 
opened for input defaults to read only, and a 
data set opened for output defaults to punch 
only. The characters that can be specified in 
the FUNC operand are: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used, an 80-byte 
data protection image (DPI) must have been 
previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output/punch 
portion of a read and punch or read punch 
and print operation. 

I 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line print option is 
used. The two-line print option allows two 
lines of data to be printed on the card 
(lines 1 and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
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either case, the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 


W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified, the 

data protection image (DPI) must be 
specified in the FCB subparameter of the DD 
statement for the data set. 

Source: The DEVD operand can be supplied only in 

the DCB macro instruction. However, the optional 
operands can be supplied in the DCB macro 
instruction, the DCB subparameter of a DD 
statement, or by the problem program before 
completion of the data control block exit 
routine. 


DSORG={PS|PSU} 

The DSORG operand specifies the organization of the data 
set and if the data set contains any location-dependent 
information that would make it unmovable. The following 
can be specified: 

PS 

specifies a physical sequential data set. 

PSU 

specifies a physical sequential data set that contains 
location-dependent information that would make it 
unmovable. 

Source: The DSORG operand must be coded in the DCB macro 

instruction. 

EQDAD~ relexp 

The EODAD operand specifies the address of the routine 
given control when the end of an input data set is reached. 
If the record format is RECFM=FS or FBS, the end-of-data 
condition is sensed when a file mark is read or when more 
data is requested after reading a truncated block. The 
end-of-data routine is entered when the CHECK macro 
instruction determines that the READ macro instruction 
reached the end of the data. If the end of the data set is 
reached but no EODAD address has been supplied, the task is 
abnormally terminated. For additional information on the 
EODAD routine, see Data Administration Guide . 

When the data set has been opened for UPDAT and volumes are 
to be switched, the problem program should issue a FEOV 
macro instruction after the EODAD routine has been entered. 

Source: The EODAD operand can be supplied in the DCB macro 

instruction or by the problem program before the end of the 
data set is reached. 

EXLST= relexp 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program requires additional processing for user 
labels, user totaling, data control block exit routine, 
end-of-volume, block count exits, to define a forms control 
buffer (FCB) image, use the JFCBE exit (for the IBM 3800 
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Printing Subsystem), or to use the DCB abend exit for abend 
condition analysis. 

For the format and requirements of exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 197. For additional information about exit list 
processing, see Data .. Administrat i on Q .. M id s .. 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program any time before the 
exit is required by the problem program. 

KEYLEN= absexp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, for the 
key associated with each data block in a direct access 
device data set. If the key length is not supplied from 
any source before completion of the data control block exit 
routine, a key length of zero (no keys) is assumed. 

Source: The KEYLEN operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by the data set 
label of an existing data set. If KEYLEN=0 is specified in 
the DCB macro instruction, a special indicator is set in 
RECFM so that KEYLEN cannot be supplied from the DCB 
subparameter of a DD statement or data set label of an 
existing data set. KEYLEN=0 can be coded only in the DCB 
macro instruction and will be ignored if specified in the 
DD statement. 

LRECL=tabsexp|XJ 

The LRECL operand specifies the length, in bytes, for 
fixed-length records, or it specifies the maximum length, 
in bytes, for variable-length records. LRECL=X is used for 
variable-length spanned records that exceed 32756 bytes. 
Except when variable-length spanned records are used, the 
value specified for the LRECL operand cannot exceed the 
value specified for the BLKSIZE operand. 

Except when variable-length spanned records are used, the 
LRECL operand can be omitted for BSAM; the system uses the 
value specified in the BLKSIZE operand. If the LRECL value 
is coded, it is coded as described in the following. 

For fixed-length records that are unblocked, the value 
specified in the LRECL operand should be equal to the value 
specified in the BLKSIZE operand. For blocked fixed-length 
records, the value specified in the LRECL operand should be 
evenly divisible into the value specified in the BLKSIZE 
operand. However, the LRECL operand will not be validity 
checked. 

For variable-length records, the value specified in LRECL 
must include the maximum data length (up to 32752 bytes) 
plus A bytes for the RDM. 

For undefined-length records, the LRECL operand should be 
omitted; the actual length can be supplied dynamically in a 
READ/WRITE macro instruction. When an undefined-length 
record is read, the actual length of the record is returned 
by the system in the DCBLRECL field of the data control 
block. 

When BSAM is used to create a BDAM data set with 
variable-length spanned records, the LRECL value should be 
the maximum data length (up to 32752) plus four bytes for 
the record descriptor word (RDW), or, if the logical record 
length is greater than 32756 bytes, LRECL=X is specified. 

Source: The LRECL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
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block exit routine, or by the data set label of an existing 
data set. 

MACRF={{(RECIP3)} 

CCWECIPIL] )3 
{(REC|P3,WEC|P3)33 

The MACRF operand specifies the type of macro instructions 
(READ, WRITE, CNTRL , and NOTE/POINT) that are used with the 
data set being created or processed. The BSAM MACRF 
operand also provides the special form (MACRF=WL) for 
creating a BDAM data set. The MACRF operand can be coded 
in any of the forms shown above. The following characters 
can be coded: 

C 

specifies that the CNTRL macro instruction is used 
with the data set. If C is specified to be used with 
a card reader, a CNTRL macro instruction must follow 
every input request. 

L 

specifies that BSAM is used to create a BDAM data set. 
This character can be specified only in the 
combination MACRF=WL. 

P 

specifies that POINT macro instructions are used with 
the data set being created or processed. Specifying P 
in the MACRF operand also automatically provides the 
capability of using NOTE macro instructions with the 
data set. P should not be coded for SYSIN or SYSOUT 
data sets. (See explanations of the NOTE and POINT 
macro instructions.) 

R 

specifies that READ macro instructions are to be used. 

W 

specifies that WRITE macro instructions are to be 
used. 

Note: Each READ and WRITE macro instruction issued in the 

problem program must be checked for completion by a CHECK 
macro instruction. 

Source: The MACRF operand must be specified in the DCB 

macro instruction. 

NCP= absexp (maximum value is 99) 

The NCP operand specifies the maximum number of READ/WRITE 
macro instructions that will be issued before the first 
CHECK macro instruction is issued to test for completion of 
the I/O operation. The maximum number may be less than 99, 
depending on the amount of virtual storage available in the 
region. If the NCP operand is omitted, 1 is assumed. 

Source: The NCP operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block open exit routine. 

0PTCD={{B3 

CT} 

{UEC33 

{CCT3CB3 CU]J 
CHEZ3CB33 
{JCC3 EU33 
{WEC3 CT3CB3CU33 
{ZCC3 CT3 CB3 CU33 
{QEC3EB3ET3 
CZ33 

The OPTCD operand specifies the optional services that are 
used with the BSAM data set. Two of the optional services, 
0PTCD=B and OPTCD=H> cannot be specified in the DCB macro 


Vy 
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instruction. They are requested in the DCB subparameter of 
a DD statement. Because all optional services requests 
must be supplied by the same source; the OPTCD operand must 
be omitted from the DCB macro instruction if either of 
these options is requested in a DD statement. The 
characters that can be specified (in any order, in one of 
the combinations shown above; and without commas between 
characters) are: 

C 

requests that chained scheduling be used. OPTCD=C 
cannot be specified if BFTEK=R is specified for the 
same data control block. Also, chained scheduling 
cannot be specified for associated data sets or 
printing on a 3525 and is ignored for direct access 
devices. 

Note: Except where it is not allowed, chained 

scheduling is used whether requested or not. For 
conditions under which chained scheduling is not 
allowed, see Data Administration Guide . 

J 

specifies that the first data byte in the output data 
line will be a 3800 table reference character. This 
table reference character selects a particular 
character arrangement table for the printing of the 
data line and can be used singly or in conjunction 
with ISO, ANSI, or machine control characters. This 
option is valid only for the IBM 3800 Printing 
Subsystem. For information on the table reference 
character and character arrangement table modules, see 
IBM 3800 Printing Subsystem Programmer’s Guide . 

Q 

requests that ISCII/ASCII tape records in an input 
data set be converted to EBCDIC code after the input 
record has been read. Translation is done at CHECK 
time for input. It also requests that an output 
record in EBCDIC code be converted to ISCII/ASCII code 
before the record is written. For further information 
on this conversion, see "Variable-Length 
Records—Format D" in Data Administration Guide . 

The Q option is unconditionally set by open routines 
if the data set is for a tape with ISO/ANSI/FIPS 
labels. For more information about ISCII/ASCII to 
EBCDIC or EBCDIC to ISCII/ASCII translations, see 

Ma^^Jjjc_IaHe_La be j s .a nd. F i laJS- t r M G±U II e , 

Administration . 

T 

requests the user totaling function. If this function 
is requested, the EXLST operand should specify the 
address of an exit list to be used. T cannot be 
specified for SYSIN and SYSOUT data sets. 

U 

is specified only for a printer with the universal 
character set (UCS) feature or the 3800 Printing 
Subsystem. This option unblocks data checks (permits 
them to be recognized as errors) and allows analysis 
by the appropriate error analysis routine (SYNAD exit 
routine). If the U option is omitted, data checks are 
not recognized as errors. 

For the IBM Mass Storage System (MSS): U requests 
window processing to reduce the amount of staging 
space required to process large sequential data sets 
on MSS. DS0RG must specify physical sequential, 
allocation must be in cylinders, and type of I/O 
accessing must be either INPUT only or OUTPUT only. 
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W 

for DASD, specifies that the system is to perform a 
validity check on each record written on a direct 
access device. For buffered devices, specifies that 
device end interrupt is to be given only when a record 
is physically on the device. By specifying 0PTCD=W 
with buffered devices, you do not benefit from the 
performance advantage of buffering. 

Z 

requests, for magnetic tape, input only, the system to 
shorten its normal error recovery procedure to 
consider a data check as a permanent I/O error after 
five unsuccessful attempts to read a record. This 
option is available only if it has also been specified 
as a SYSGEN option. QPTCD=Z is meant to be used when 
a tape is known to contain errors and there is no need 
to process every record. The error analysis routine 
(SYNAD) should keep a count of permanent errors and 
terminate processing if the number becomes excessive. 

Note: The following describes the optional services that 

can be requested in the DCB subparameter of a DD statement. 
If either of these options is requested, the complete OPTCD 
operand must be supplied in the DD statement. 

B 

If OPTCD=B is specified in the DCB subparameter of a 
DD statement, it forces the end-of-volume (EOV) 
routine to disregard the end-of-file recognition for 
magnetic tape. When this occurs, the EOV routine uses 
the number of volume serial numbers to determine end 
of file. 

H 

If OPTCD=H is specified in the DCB subparameter of a 
DD statement, it specifies that the DOS/OS interchange 
feature is being used with the data set. 

Source: The OPTCD operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, in 
the data set label for direct access devices, or by the 
problem program before completion of the DCB open exit 
routine or JFCBE exit routine. However, all optional 
services must be requested from the same source. 

RECFM=CCUCT3 CA|Ml} 

{VIBISITIBSIBTHA1MJ} 

{DCB|S|BS3[A]} 

{FEB|S|T|BS|BT][A|M3}} 

The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 
All the record formats shown above can be specified, but in 
those record formats that specify blocked records, the 
problem program must perform the blocking and deblocking 
of logical records; BSAM recognizes only data blocks. The 
following describes the characters that can be specified: 

A 

specifies that the records in the data set contain 
International Organization for Standardization (ISO) 
or American National Standards Institute (ANSI) 
control characters. For a description of control 
characters, see Appendix E, "Control Characters” on 
page 199. 

B 

specifies that the data set contains blocked records. 

D 

specifies that the data set contains variable-length 
ISCII/ASCII tape records. 


/f > 

W 
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F 

specifies that the data set contains fixed-length 
records. 

M 

specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 199. RECFM=M cannot be used with 
ISCII/ASCII data sets. 

S 

S specifies, for fixed-length records, that the 
records are to be written as standard blocks; with the 
exception of the last block or track in the data set, 
the data set contains no truncated blocks or unfilled 
tracks. Do not code S to retrieve records from a data 
set that was created using a RECFM other than 
standard. 

For variable-length records, including variable-length 
ISCII/ASCII, S specifies that a record can span more 
than one block. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track of a direct access device and 
the remainder of the record to be written on the 
following track or tracks as required. Chained 
scheduling cannot be requested if track overflow is 
used. 

U 

specifies that the data set contains undefined-length 
records. 

Note: Format-U records are not supported for Version 

3 ISO/ANSI/FIPS tapes. An attempt to process a 
format-U record for a Version 3 tape results in a 
label validation installation exit being taken. 

Only ISO/ANSI Version 1 (ISO 1001-1969 or ANSI 
X3.27-1969) format-U records can be used for input. 

V 

specifies that the data set contains variable-length 
records. 


Notes: 

• RECFM=V cannot be specified for a card reader data set 
or an ISO/ANSI/FIPS tape data set. 

• RECFM=VBS does not provide the spanned record function; 
if this format is used, the problem program must block 
and segment the records. 

• RECFM=DBS or RECFM=DS does not provide the spanned 
record function; if this format is used, the problem 
program must block and segment the records. 

• RECFM=VS, VBS, DS, or DBS cannot be specified for a 
SYSIN data set. 

• RECFM=V cannot be used for a 7-track tape unless the 
data conversion feature (TRTCH=C) is used. 

Source: The RECFM operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 
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SYNAD=r elex P- 

The SYNAD operand specifies the address of the error 
analysis (SYNAD) routine to be given control if an 
uncorrectable input/output error occurs. The contents of 
the registers when the error analysis routine is given 
control are described in Appendix A, "Status Information 
Following an Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. If control is returned to the system, the system 
returns control to the problem program and proceeds as 
though no error had been encountered. 

If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error routine address at any time. 

When operating a directly allocated 3800 Model 3 using 
all-points addressability, the SYNAD routine will be entered if 
Print Services Facility (PSF) detects an unrecoverable error. 
However, no error information is available to the SYNAD routine 
for a directly allocated 3800 Model 3. If you want to continue 
processing, you must close and reopen the data set to restart 
PSF. For more information on the 3800 Model 3, see IBM 3800 
En a, niin .g. Sm bsystem .P r Q. g rm m3 r ±s.,. 3y i tis for Models 3 and 8. 
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DCB—CONSTRUCT A DATA CONTROL BLOCK CQISAM) 

The data control block for a queued indexed sequential access 
method CQISAM) data set is constructed during assembly of the 
problem program. The DSORG and MACRF operands must be coded in 
the DCB macro instruction, but the other DCB operands can be 
supplied from other sources. Each QISAM DCB operand description 
contains a heading, "Source.” The information under this 
heading describes the sources that can supply the operand to the 
data control block. 

The DCB macro for QISAM is written: 


l symbol3 


DCB 


EBFALN={FIfi}3 

[ >BLKSIZE= absexp 3 

[,BUFCB= relex p] 

C,BUFL= absexp 3 
i >BUFN0= absexp 3 
[,CYL0FL= absexp 3 
C f DDNAME= svmbol 3 1 
t DSORG={IS|ISUJ 
[,EODAD= relexp ] 

C 9 EXLST= relexp ] 
it KEYLEN= absex P 3 
E t LRECL= absexp ] 
t MACRF={C(PM)} 

{(PL)} 

{(GME,SCK113 3)} 

t(GLE,S{K|I}3[,PU])}} 

C»NTM= absexp 3 

E t OPTCD= EIHLHMHRHUHWHY]] 
[y RECFM={VCB3|FEB]}] 

E , RKP= absexp 3 
E »SYNAD= relexp 3 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the DCB operands that can be specified 
when a QISAM data set is being created or processed: 

BFALN=CF|D} 

The BFALN operand specifies the alignment of each buffer in 
the buffer pool when the buffer pool is constructed 
automatically or by a GETPOOL macro instruction. If the 
BFALN operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

£ 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool, the problem program must provide a storage 
area for the buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BLKSIZE= absexp (maximum value KEYLEN + BLKSIZE is 32760) 

The BLKSIZE operand specifies the length, in bytes, for 
each data block when fixed-length records are used, or it 
specifies the maximum length in bytes, for each data block 
when variable-length records are used. The BLKSIZE operand 
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must be specified when an ISAM data set is created. When 
an existing ISAM data set is processed, the BLKSIZE operand 
must be omitted (it is supplied by the data set label). 

Track capacity of the direct access device being used must 
be considered when the block size for an ISAM data set is 
specified. For fixed-length records, the sum of the key 
length, data length, and device overhead plus 10 bytes (for 
ISAM use) must not exceed the capacity of a single track on 
the direct access device being used. For variable-length 
records, the sum of the key length, block-descriptor word 
length, record-descriptor word length, data length, and 
device overhead plus 10 bytes (for ISAM use) must not 
exceed the capacity of a single track on the direct access 
device being used. Device capacity and device overhead are 
described in Appendix C, "Device Capacities" on page 194. 
For additional information about device capacity and space 
allocation, see Data Administration Guide . 

If fixed-length records are used, the value specified in 
the BLKSIZE operand must be an integral multiple of the 
value specified in the LRECL operand. 

Source: When an ISAM data set is created, the BLKSIZE 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed, the 
BLKSIZE operand must be omitted from the other sources, 
allowing the data set label to supply the value. 

BUFCB= relex p 

The BUFCB operand specifies the address of the buffer pool 
control block constructed by a BUILD macro instruction. 

If the system constructs the buffer pool automatically or 
if the buffer pool is constructed by a GETPOOL macro 
instruction, the system places the address of the buffer 
pool control block into the data control block, and the 
BUFCB operand should be omitted. 

Source: The BUFCB operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL= absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is 
constructed by a BUILD or GETPOOL macro instruction. When 
the data set is opened, the system computes the minimum 
buffer length required and verifies that the length in the 
buffer pool control block is equal to or greater than the 
minimum length required. The system then inserts the 
computed length into the data control block. 

The BUFL operand is not required for QISAM if the system 
acquires buffers automatically; the system computes the 
minimum buffer length required and inserts the value into 
the data control block. 

If the buffer pool is constructed with a BUILD or GETPOOL 
macro instruction, additional space is required in each 
buffer for system use. For a description of the buffer 
length required for various ISAM operations, see Data 
Administration Guide . 

Source: The BUFL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNO= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
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the number of buffers to be acquired automatically by the 
system. If the BUFNO operand is omitted, the system 
automatically acquires two buffers. 

If the GETPOOL macro instruction is used to construct the 
buffer pool, the BUFNO operand is not required. 

Source: The BUFNO operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

CYLOFL= absexp (maximum value is number of tracks minus 1) 

The CYLOFL operand specifies the number of tracks on each 
cylinder that is reserved as an overflow area. The 
overflow area is used to contain records that are forced 
off prime area tracks when additional records are added to 
the prime area track in ascending key sequence. ISAM 
maintains pointers to records in the overflow area so that 
the entire data set is logically in ascending key sequence. 
Tracks in the cylinder overflow area are used by the system 
only if OPTCD=Y is specified. For a more complete 
description of cylinder overflow area, refer to the space 
allocation section of Data Administration Guide . 

Source: When an ISAM data set is created, the CYLOFL 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed, the 
CYLOFL operand should be omitted, allowing the data set 
label to supply the operand. 

DDNAME= svmbol 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB 

macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DSORG={IS|ISU} 

The DSORG operand specifies the organization of the data 
set and indicates if the data set contains any 
location-dependent information that would make it 
unmovable. The following characters can be specified: 

IS 

specifies an indexed sequential data set organization. 

ISU 

specifies an indexed sequential data set that contains 
location-dependent information. ISU can be specified 
only when an ISAM data set is created. 

Source: The DSORG operand must be specified in the DCB 

macro instruction. When an ISAM data set is created, 
DS0RG=IS or ISU must also be specified in the DCB 
subparameter of the corresponding DD statement. 

EODAD= relexp 

The EODAD operand specifies the address of the routine to 
be given control when the end of an input data set is 
reached. For ISAM, this operand would apply only to scan 
mode when a data set is open for an input operation. 

Control is given to this routine when a GET macro 
instruction is issued and there are no more input records 
to retrieve. For additional information on the EODAD 
routine, see Pa 13 Adm i. niS . t rsLiA PEUSuid e. 

Source: The EODAD operand can be supplied in the DCB macro 

instruction or by the problem program before the end of the 
data set is reached. 
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EXLST= relexp 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required only if 
the problem program uses the data control block exit 
routine for additional processing. 

For the format and requirements for exit list processing, 
see Appendix D, f, DCB Exit List Format and Contents” on 
page 197. For additional information about exit list 
processing, see P a _ ta _A.d mjn . jst ra t i-Q-D..Q uid e. 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program before the associated 
exit is required. 

KEYLEN= absexp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, of the 
key associated with each record in an indexed sequential 
data set. When blocked records are used, the key of the 
last record in the block (highest key) is used to identify 
the block. However, each logical record within the block 
has its own identifying key that ISAM uses to access a 
given logical record. 

Source: When an ISAM data set is created, the KEYLEN 

operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed, the 
KEYLEN operand must be omitted, allowing the data set level 
to supply the key length value. KEYLEN=0 is not valid for 
an ISAM data set. 

LRECL= absexp (maximum value is device-dependent) 

The LRECL operand specifies the length, in bytes, for 
fixed-length records, or it specifies the maximum length, 
in bytes, for variable-length records. The value specified 
in the LRECL operand cannot exceed the value specified in 
the BLKSIZE operand. When fixed, unblocked records are 
used and the relative key position (as specified in the RKP 
operand) is zero, the value specified in the LRECL operand 
should include only the data length (the key is not written 
as part of the fixed, unblocked record when RKP=0). 

The track capacity of the direct access device being used 
must be considered if maximum-length logical records are 
being used. For fixed-length records, the sum of the key 
length, data length, and device overhead plus 10 bytes (for 
ISAM use) must not exceed the capacity of a single track on 
the direct access device being used. For variable-length 
records, the sum of the key length, data length, device 
overhead, block-descriptor-word length, and 
record-descriptor-word length plus 10 bytes (for ISAM use) 
must not exceed the capacity of a single track on the 
direct access device being used. Device capacities are 
shown in Appendix C, "Device Capacities” on page 194. For 
additional information about device capacity and space 
allocation, see Data Administration Guide . 

Source: When an ISAM data set is created, the LRECL operand 
can be supplied in the DCB macro instruction, in the DCB 
subparameter of a DD statement, or by the problem program 
before completion of the data control block exit routine. 
When an existing ISAM data set is processed, the LRECL 
operand must be omitted, allowing the data set label to 
supply the value. 

MACRF={{C PM)} 

{(PL)} 

{(GM[,${K|1}3)} 

{(GLC,S{K11}3 C,PU3)}} 

The MACRF operand specifies the type of macro instructions, 
the transmittal mode, and type of search to be used with 
the data set being processed. The operand can be coded in 
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any of the combinations shown above; the following 
describes the characters that can be coded. 

The following characters can be specified only when the 
data set is being created (load mode) or additional records 
are being added to the end of the data set (resume load): 

PL 

specifies that PUT macro instructions are used in the 
locate transmittal mode; the system provides the 
problem program with the address of a buffer 
containing the data to be written into the data set. 

PM 

specifies that PUT macro instructions are used in the 
move transmittal mode; the system moves the data to be 
written from the problem program work area to the 
buffer being used. 

The following characters can be specified only when the 
data set is being processed (scan mode) or when records in 
an ISAM data set are being updated in place: 

GL 

specifies that GET macro instructions are used in the 
locate transmittal mode; the system provides the 
problem program with the address of a buffer 
containing the logical record read. 

GM 

specifies that GET macro instructions are used in the 
move mode; the system moves the logical record from 
the buffer to the problem program work area. 

Z 

specifies that actual device addresses (MBBCCHHR) are 
used to search for a record (or the first record) to 
be read. 

K 

specifies that a key or key class is used to search 
for a record (or the first record) to be read. 

PU 

specifies that PUTX macro instructions are to be used 
to return updated records to the data set. 

S 

specifies that SETL macro instructions are used to set 
the beginning location for processing the data set. 

Source: The MACRF operand must be coded in the DCB 

macro instruction. 

NTM= absexp (maximum value is 99) 

The NTM operand specifies the number of tracks to be 
created in a cylinder index before a highei—level index is 
created. If the cylinder index exceeds this number, a 
master index is created by the system; if a master index 
exceeds this number, the next level of master index is 
created. The system creates as many as three levels of 
master indexes. The NTM operand is ignored unless the 
master index option (OPTCD=M) is selected. 

Source: When an ISAM data set is being created, the NTM 

operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an ISAM data set is being processed, master 
index information is supplied to the data control block 
from the data set label, and the NTM operand must be 
omitted. 
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OPTCD=C I HLHMHRHUHWHY3 

The OPTCD operand specifies the optional services performed 
by the system when an ISAM data set is being created or 
updated. The following describes the characters that can 
be specified (these characters can be specified in any 
order/ and no commas are allowed between characters): 

I 

specifies that the system uses the independent 
overflow areas to contain overflow records. Note that 
it is only the use of the allocated independent 
overflow area that is optional. Under certain 
conditions/ the system designates an overflow area 
that was not allocated for independent overflow by the 
problem program. See "Allocating Space for an Indexed 
Sequential Data Set" in Data Administration Guide . 

L 

specifies that the data set will contain records 
flagged for deletion. A record is flagged for 
deletion by placing a hexadecimal value of 'FF 1 in the 
first data byte. Records flagged for deletion remain 
in the data set until the space is required for 
another record to be added to the track and are 
ignored during sequential retrieval of the ISAM data 
set CQISAM/ scan mode). This option cannot be 
specified for blocked fixed-length records if the 
relative key position is 0 (RKP=0)/ or it cannot be 
specified for variable-length records if the relative 
key position is 4 (RKP=4). 

Nhen an ISAM data set is being processed with BISAM/ a 
record with a duplicate key can be added to the data 
set (NRITE KN macro instruction)/ only when OPTCD=L 
has been specified and the original record (the one 
whose key is being duplicated) has been flagged for 
deletion. 

M 

specifies that the system create and maintain a master 
index(es) according to the number of tracks specified 
in the NTM operand. 

R 

specifies that the system place reorganization 
statistics in the DCBR0RG1/ DCBR0RG2/ and DCBR0RG3 
fields of the data control block. The problem program 
can analyze these statistics to determine when to 
reorganize the data set. If the OPTCD operand is 
omitted/ the reorganization statistics are 
automatically provided. However/ if the OPTCD operand 
is supplied/ OPTCD=R must be specified to obtain the 
reorganization statistics. 

U 

specifies that the system is to accumulate track index 
entries in storage and write them as a group for each 
track of the track index. OPTCD=U can be specified 
only for fixed-length records. The entries are 
written in fixed-length unblocked format. 

W 

specifies that the system is to perform a validity 
check on each record written. 

Y 

specifies that the system is to use the cylinder 
overflow area(s) to contain overflow records. If 
OPTCD=Y is specified, the CYLOFL operand specifies the 
number of tracks to be used for the cylinder overflow 
area. The reserved cylinder overflow area is not used 
unless OPTCD=Y is specified. 


(O 


v ..y 
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Source: When an ISAM data set is created, the OPTCD 

operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before an OPEN macro instruction is issued to open 
the data set. However, all optional services must be 
requested from the same source. When an existing ISAM data 
set is processed, the optional service information is 
supplied to the data control block from the data set label, 
and the OPTCD operand should be omitted. 

RECFM={VtB3IFCB3J 

The RECFM operand specifies the format and characteristics 
of the records in the data set. If the RECFM operand is 
omitted, variable-length records (unblocked) are assumed. 
The following describes the characters that can be 
specified: 

B 

specifies that the data set contains blocked records. 

F 

specifies that the data set contains fixed-length 
records. 

V 

specifies that the data set contains variable-length 
records. 

Source: When an ISAM data set is created, the RECFM 

operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before an OPEN macro instruction is issued to open 
the data set. When an existing ISAM data set is processed, 
the record format information is supplied by the data set 
label, and the RECFM operand should be omitted. 

If the record format information is supplied in the DD 
statement or the DCB, it must agree with the information in 
the data set label. 

RKP= absexp 

The RKP operand specifies the relative position of the 
first byte of the key within each logical record. For 
example, if RKP-9 is specified, the key starts in the 10th 
byte of the record. The delete option (OPTCD=L) should not 
be specified if the relative key position is the first byte 
of a blocked fixed-length record or the fifth byte of a 
variable-length record. If the RKP operand is omitted, 
RKP=0 is assumed. 

If unblocked fixed-length records with RKP=0 are used, the 
key is not written as a part of the data record, and the 
delete option can be specified. If blocked fixed-length 
records are used, the key is written as part of each data 
record; either RKP must be greater than zero or the delete 
option must not be used. 

If variable-length records (blocked or unblocked) are used, 
and if the delete option is not specified, RKP must be 4 or 
greater; if the delete option is specified, RKP must be 
specified as 5 or greater. The 4 additional bytes allow 
for the block descriptor word in variable-length records. 

Source: When an ISAM data set is created, the RKP operand 
can be supplied in the DCB macro instruction, in the DCB 
subparameter of a DD statement, or by the problem program 
before completion of the data control block exit routine. 
When an existing ISAM data set is processed, the RKP 
information is supplied by the data set label and the RKP 
operand should be omitted. 
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SYNAD= relexp 

The SYNAD operand specifies the address of the error 
analysis routine given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation” on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. When control is returned in this manner, the 
system returns control to the problem program and proceeds 
as though no error had been encountered; if the error 
analysis routine continues processing, the results may be 
unpredictable. 

For additional information on error analysis routine 
processing for indexed sequential data sets, see Data 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error analysis routine address at any 
time. 
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DCB—CONSTRUCT A DATA CONTROL BLOCK CQSAM) 

The data control block for the queued sequential access method 
CQSAM) is constructed during assembly of the problem program. 

The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other DCB operands can be supplied to the 
data control block from other sources. Each DCB operand 
description contains a heading, "Source.” The information under 
this heading describes the sources from which the operand can be 
supplied. 

For information on additional operands for the DCB macro for the 
IBM 3890 Document Processor, see IBM 3890 Document Processor 
H a &hin Q— E n. Q jg £3 ft ) m i . p a... Dffs cri p.t i . pn . 
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The DCB macro for QSAM is written: 


[ symbol 3 


DCB 


[BFALN={F|DJ] 

[,BFTEK={SlAJ] 

[,BLKSIZE= absexp ] 

[ »BUFCB= relexp 3 
[>BUFL= absexp l 
[,BUFNO= absexp ] 

[>BUFOFF=t absexp |U3 
[,DDNAME= svmbo1 1 1 

[,DEVD=£{DA3 

CTA 

[? DEN={1121314}] 

[ , TRTCH=£C|E|ET|T}]} 

CPR 

[»PRTSP={0111 213} 3 J 
{ PC 

[,MODE= t C|E][ R3 3 
[,STACK=£1|2}3 
[,FUNC={I|P|PW[XTIIRIRPED]I 

RWIT3|RWPCXT]CD]|WET3}3} 

CRD 

[»MODE=[C|E3E01R3 3 
t »STACK=C112}3 
[,FUNC={I|P|PWtXT3|R|RPCD3I 

RW[T3IRWPLXT3[D]|WCT3}3}}3 

,DSORG=CPS|PSUJ 
[,EODAD= relexp 3 
I,EROPT={ACC|SKP| ABET 3 
[,EXLST= relexp ] 

I r LRECL=Ca bsexp IX|OK In nnnn KT3 
,MACRF=CCCGCM|L|T|DJ[C3)} 

{(P{M|L|TID}[C3 )} 
C[GCM|L|T|DKC3,PCM|L|T|DJ[C3)}} 
[,OPTCD=CCBJ 
CTJ 

CUCC3J 

CCCT3 CB3IU3J 
CHCZ3CB3J 
{J[C3[U33 
CWCC3CT3IB3IU33 
CZCC3CT3 £B3CU3} 

CQCC3[B3 CT33 3 
CZ333 

[,RECFM=CCUCT3[A|M3} 

CVIBIS3IT3ISIT3IT3CAIM33 
CDCBCS31[S3[A3 3} 
CF[B|S|T|BS|BT3[A|M3JJ3 
[ t SYNAD= relexp 3 




1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the operands that can be specified in 
the DCB macro instruction for a QSAM data set: 

BFALN=£F|D3 

The BFALN operand specifies the boundary alignment of each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. 

If the data set being created or processed contains 

ISCII/ASCII tape records with a block prefix, the block 

prefix is entered at the beginning of the buffer, and data 

alignment depends on the length of the block prefix. For a 

description of how to specify the block prefix length, 

refer to the description of the BUFOFF operand. (% ^ 
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The following describes the characters that can be 
specified: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

fi 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool, the problem program must control buffer 
alignment. 

Source: The BFALN operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
operands are specified, they must be supplied from the same 
source. 

BFTEK={S|A} 

The BFTEK operand specifies the buffering technique that is 
used when the QSAM data set is created or processed. If 
the BFTEK operand is omitted, simple buffering is assumed. 
The following describes the characters that can be 
specified: 

S 

specifies that simple buffering is used. 

A 

specifies that a logical record interface is used for 
variable-length spanned records. Nhen BFTEK=A is 
specified, the open routine acquires a record area 
equal to the length specified in the LRECL field plus 
32 additional bytes for control information. LRECL=0 
is invalid. The LRECL provided at open should be the 
maximum length in bytes. The open routine uses this 
value to acquire the record area. Nhen a logical 
record interface is requested, the system uses the 
simple buffering technique. 

BFTEK=A is invalid with MOVE mode. 

To use the simple technique efficiently, the user should be 
familiar with the three transmittal modes for QSAM and the 
buffering techniques described in Data Administration 
Guide . 

Source: The BFTEK operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 

BLKSIZE=absexpCmaximum value is 32760 for IBM standard labels) 
The BLKSIZE operand specifies the length, in bytes, of a 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, of a data block for 
variable-length or undefined-length records. 

The actual value that can be specified in the BLKSIZE 
operand depends on the device type and record format being 
used. Device capacities are shown in Appendix C, "Device 
Capacities" on page 194. (For additional information about 
device capacity, refer to Data Administration Guide .) 

For direct access devices when track overflow is used or 
variable-length spanned records are being processed, the 
BLKSIZE operand can be up to the maximum value. For other 
record formats used with direct access devices, the value 
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specified in the BLKSIZE operand cannot exceed the capacity 
of a single track. 

Because QSAM provides a logical record interface, the f \ 

device capacities shown in Appendix C, "Device Capacities" \ 

on page 194, also apply to a maximum-length logical record. 

One exception to the device capacity for a logical record 
is the size of variable-length spanned records. Their 
length can exceed the value specified in the BLKSIZE 
operand (see the description of the LRECL operand). 

If fixed-length records are used, the value specified in 
the BLKSIZE operand must be an integral multiple of the 
value specified in the LRECL operand. If the records are 
unblocked fixed-length records, the value specified in the 
BLKSIZE operand must equal the value specified in the LRECL 
operand if the LRECL operand is specified. 

If variable-length records are used, the value specified in 
the BLKSIZE operand must include the data length (up to 
32756 bytes) plus 4 bytes required for the block descriptor 
word (BDW). For format-D variable-length records, the 
minimum BLKSIZE is 18 bytes. The maximum is 2048 bytes. 

For more information about the BLKSIZE restrictions, see 
Data Administration Guide . 

If ISCII/ASCII tape records with a block prefix are 
processed, the value specified in the BLKSIZE operand must 
also include the length of the block prefix. If an 
ISCII/ASCII format DB or DBS tape data set is opened for 
output using QSAM with the system acquiring the buffers and 
BUFOFF=0 specified, the value specified in the BLKSIZE 
operand must be increased by 4 to allow for a 4 byte QSAM 
internal processing area. If BUFL is specified, the BUFL 
operand value must be increased by 4, instead of the 
BLKSIZE operand value. 

If variable-length spanned records are used, the value 
specified in the BLKSIZE operand can be the best one for 
the device being used or the processing being done. When 
unit record devices (card or printer) are used, the system 
assumes records are unblocked; the value specified for the 
BLKSIZE operand is equivalent to one print line or one 
card. A logical record that spans several blocks is 
written one segment at a time. 

If undefined-length records are used, the problem program 
can insert the actual record length into the DCBLRECL 
field. See the description of the LRECL operand. 

Source: The BLKSIZE operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

Note: The maximum block size for Version 3 ISO/ANSI/FIPS 

tapes (ISO 1001-1979 or ANSI X3.27 1978) is 2048 bytes. An 
attempt to exceed 2048 bytes for a Version 3 tape results 
in a label validation installation exit being taken. 

BUFCB=rel exp 

The BUFCB operand specifies the address of the buffer pool 
control block constructed by a BUILD or BUILDRCD macro 
instruction. 

If the buffer pool is constructed automatically or by a 
GETP00L macro instruction, the system places the address of 
the buffer pool control block into the data control block, 
and the BUFCB operand should be omitted. 

Source: The BUFCB operand can be supplied in the DCB macro € 

instruction or by the problem program before completion of y 

the data control block exit routine. 


76 MVS/XA Data Administration: Macro Instruction Reference 



DCB (QSAM) 


BUFL= absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is acquired 
automatically. If the BUFL operand is omitted, the system 
acquires buffers with a length equal to the value specified 
in the BLKSIZE operand; if the problem program requires 
larger buffers, the BUFL operand is required. If the data 
set is for card image mode, the BUFL operand is specified 
as 160 bytes. The description of the DEVD operand contains 
a description of card image mode. 

If the data set contains ISCII/ASCII tape records with a 
block prefix, the value specified in the BUFL operand must 
also include the length of the block prefix. If an 
ISCII/ASCII format DB or DBS tape data set is opened for 
output using QSAM and BUF0FF=0 is specified, then the BUFL 
operand value, if specified, must be increased by 4 to 
allow for a 4-byte QSAM internal processing area. 

If the buffer pool is constructed by a BUILD, BUILDRCD, or 
GETPOOL macro instruction, the BUFL operand is not 
required. 

Source: The BUFL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNO= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers in the 
buffer pool constructed by a BUILD or BUILDRCD macro 
instruction, or it specifies the number of buffers to be 
acquired automatically. If chained scheduling is 
specified, the value of BUFNO determines the maximum number 
of channel program segments that can be chained and must be 
specified as more than one. If the BUFNO operand is 
omitted and the buffers are acquired automatically, the 
system acquires three buffers if the device is a 2540 
device or five buffers for any other device type. 

If the buffer pool is constructed by a GETPOOL macro 
instruction, the BUFNO operand is not required. 

Source: The BUFNO operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFOFF={absexp|LJ 

The BUFOFF operand specifies the length, in bytes, of the 
block prefix used with ISCII/ASCII tape data sets. When 
QSAM is used to read ISCII/ASCII tape records, only the 
data portion (or its address) is passed to the problem 
program; the block prefix is not available to the problem 
program. Block prefixes (except BUFOFF=L) cannot be 
included in QSAM output records. The following can be 
specified in the BUFOFF operand: 

absexp 

specifies the length, in bytes, of the block prefix. 

This value can be from 0 to 99 for an input data set. 

The value must be 0 for writing an output data set 

with fixed-length or undefined-length records. 


specifies that the block prefix is 4 bytes long and 
contains the block length. BUF0FF=L is used when 
format-D records (ISCII/ASCII) are processed. QSAM 
uses the 4 bytes as a block-descriptor word (BDW). 
For further information on this operand, see 
"Variable-Length Records—Format D" in Data 
Administration Guide . 
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Source: The BUFOFF operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, or by the problem program before an OPEN macro 
instruction is issued to open the data set. BUFOFF=absexp 
can also be supplied by the second system label of an 
existing data set; BUF0FF=L cannot be supplied by the label 
of an existing data set. 

DDNAME= svmbol 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB 

macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DEVD=£DA|TA|PR|PC|RD}C,options 3 

The DEVD operand specifies the device type where the data 
set can or does reside. The device types above are shown 
with the optional operand(s) that can be coded when a 
particular device is used. The devices are listed in order 
of device independence. For example, if DEVD=DA is coded 
in a DCB macro instruction (or the DEVD operand is omitted, 
which causes a default to DA), the data control block 
constructed during assembly could later be used for any of 
the other devices, but, if DEVD=RD is coded, the data 
control block can be used only with a card reader or card 
reader punch. Unless you are certain that device 
interchangeability is not required, you should either code 
DEVD=DA or omit the operand and allow it to default to DA. 

If system input is directed to an intermediate storage 
device, the DEVD operand is omitted, and the job control 
language for the problem program must designate the system 
input to be used. Similarly, if system output is directed 
to an intermediate storage device, the DEVD operand is 
omitted, and the job control language for the problem 
program must designate the system output to be used. If 
DEVD=PR, PC, or RD is coded, the DCB macro should not be 
coded within the first 16 bytes of addressability for the 
control section. 


The DEVD operand is discussed below according to individual 
device type: 


DEVD=DA 

specifies that the data control block can be used for 
a direct access device (or any of the other device 
types described following DA). 


DEVD=TA 

[ f DEN={1|2|3|4}] 

C,TRTCH={C|E|ET|T}3 

specifies that the data control block can be used for 
a magnetic tape data set (or any of the other device 
types described following TA). If TA is coded, the 
following optional operands can be coded: 

DEN={1|2|3|4} 

The DEN operand specifies the recording density 
in the number of bits-pei—inch per track as shown 
in the following: 


Recording Density 


DEN 7-Track 9-Track 18-Track 


1 556 

2 800 

3 N/A 

4 N/A 


N/A N/A 
800 (NRZI) 1 N/A 
1600 (PE) 2 N/A 
6250 (GCR) 2 N/A 
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NRZI is for nonreturn—to—zero inverted mode. 


2 PE is for phase encoded mode. 

3 GCR is for group coded recording mode. 

TRTCH={C|E|ET|T} 

The TRTCH operand specifies the recording 
technique for 7-track tape. One of the above 
character combinations can be coded. If the 
TRTCH operand is omitted, odd parity with no 
translation or conversion is assumed. The 
following describes the characters that can be 
specified: 

C 

specifies that the data-conversion feature 
is used with odd parity and no translation. 

E 

specifies even parity with no translation or 
conversion. 

ET 

specifies even parity with BCDIC to EBCDIC 
translation required, but no data-conversion 
feature. 

T 

specifies that BCDIC to EBCDIC translation 
is required with odd parity and no 
data-conversion feature. 


DEVD=PR 

[ t PRTSP={0 HI 2 13} ] 

Specifies that the data control block is used for an 
on-line printer (or any of the other device types 
following PR). If PR is coded, the following optional 
operand can be coded: 


PRTSP={0[1|2|3J 

The PRTSP operand specifies the line spacing on 
the printer. This operand is not valid if the 
RECFM operand specifies either machine (RECFM=M), 
ANSI (RECFM=A), or ISO control characters. If 
the PRTSP operand is not specified from any 
source, one is assumed. The following describes 
the characters that can be specified: 


0 

specifies that spacing is suppressed (no 
space). 

1 

specifies single spacing. 

2 

specifies double spacing (one blank line 
between printed lines). 

3 

specifies triple spacing (two blank lines 
between printed lines). 


Note: MODE and FUNC subparameters cannot be 

used with this specification. 


DEVD=PC 

C,MODE=CC|E]CR]] 

[,STACK=U|2JJ 

[ t FUNC=CIIPIPWCXT31R|RPCD11RWCT31RWPIXT3 |WCT]>3 

Specifies that the data control block is used for a 
card punch (or any of the other device types following 
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PC). If PC is coded, the following optional operands 
can be specified: 

MODE=[C|E]ERn 

The MODE operand specifies the mode of operation 
for the card punch. If the MODE operand is 
omitted, E is assumed. The following describes 
the characters that can be specified: 

C 

specifies that the cards are to be punched 
in card image mode. In card image mode, the 
12 rows in each card column are punched from 
two consecutive bytes of virtual storage. 
Rows 12 through 3 are punched from the 6 
low-order bits of one byte, and rows 4 
through 9 are punched from the 6 low-order 
bits of the following byte. 

E 

specifies that cards are to be punched in 
EBCDIC code. 

$TACK={1| 2} 

The STACK operand specifies the stacker bin where 
the card is placed after punching is completed. 

If this operand is omitted, stacker number 1 is 
used. The following describes the characters 
that can be specified: 

1 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNC={11P|PWEXT3IRIRPID3I RVHT3IRWPEXT3 CD)IWCT3J 

The FUNC operand defines the type of 3525 card 
punch data sets that is to be used. If the FUNC 
operand is omitted from all sources, a data set 
opened for input defaults to read only, and a 
data set opened for output defaults to punch 
only. The following describes the characters 
that can be specified in the FUNC operand: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used, an 80-byte 
data protection image (DPI) must have been 
previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output punch 
portion of a read and punch or read, punch, 
and print operation. 

I 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 




v 
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T 

specifies that the two-line option is used. 
The two-line print option allows two lines 
of data to be printed on the card (lines 1 
and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case, the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified, the data 

protection image (DPI) must be specified in the 
FCB subparameter of the DD statement for the data 
set. 


DEVD=RD 

E t MODE=CC|E]CO|R]] 

[ f $TACK={1| 27 3 

E f FUNC=[I|P|PWCXT]|R|RPCD3IRWCT3IRWPCXT3 CD3 IWCT3J 3 


specifies that the data control block is used with a 
card reader or card read punch. If RD is specified, 
the data control block cannot be used with any other 
device type. When RD is coded, the following optional 
operands can be specified: 

MODE=[C|E3 CO IR3 

The MODE operand specifies the mode of operation 
for the card reader. The following describes the 
characters that can be specified: 

C 

specifies that the cards to be read are in 
card image mode. In card image mode, the 12 
rows of each card column are read into two 
consecutive bytes of virtual storage. Rows 
12 through 3 are read into the 6 low-order 
bits of one byte, and rows 4 through 9 are 
read into the 6 low-order bits of the 
following byte. 

I 

specifies that the cards to be read contain 
data in EBCDIC code. 

0 

specifies that the program runs in optical 
mark read mode (3505 card reader). 

R 

specifies that the program runs in 
read-column-eliminate mode (3505 card reader 
and 3525 card punch, read feature). 

Note: If the MODE operand for a 3505 or 3525 is 

specified in the DCB subparameter of a DD 
statement, either C or E must be specified if R 
or 0 is specified. 
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STACK=C1I2J 

The STACK operand specifies the stacker bin into 
which the card is placed after reading is 
completed. If this operand is omitted, stacker 
number 1 is used. The following describes the 
characters that can be specified: 


specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNC={I | P | PWCXT3 | R | RPCD] | RV/CT3 | RV/PCXT3 CD] |Wmj 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources, a data set 
opened for input defaults to read only, and a 
data set opened for output defaults to punch 
only. The following describes the characters 
that can be specified in the FUNC operand: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used, an 80-byte 
data protection image (DPI) must have been 
previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output punch 
portion of a read and punch or read, punch, 
and print operation. 

I 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line option is used. 
The two-line print option allows two lines 
of data to be printed on the card (lines 1 
and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case, the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 
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Note: If data protection is specified/ the 

data protection image (DPI) must be 
specified in the FCB subparameter of the DD 
statement for the data set. 

Source: The DEVD operand can be supplied only in 

the DCB macro instruction. However/ the optional 
operands can be supplied in the DCB macro 
instruction/ the DCB subparameter of a DD 
statement/ or by the problem program before 
completion of the data control block exit 
routine. 


DSORG={PS|PSU} 

The DSORG operand specifies the organization of the data 
set and indicates if the data set contains any 
location-dependent information that would make it 
unmovable. The following can be specified in the DSORG 
operand: 

PS 

Specifies a physical sequential data set. 

PSU 

Specifies a physical sequential data set that contains 
location-dependent information. 

Source: The DSORG operand must be coded in the DCB 

macro instruction. 

EODAD= relexp 

The EODAD operand specifies the address of the routine 
given control when the end of an input data set is reached. 
Control is given to this routine when a GET macro 
instruction is issued and there are no additional records 
to be retrieved. If the record format is RECFM=FS or FBS 
the end-of-data condition is sensed when file mark is read 
or if more data is requested after reading a truncated 
block. If the end of the data set has been reached but no 
EODAD address has been supplied to the data control block/ 
or if a GET macro instruction is issued after an 
end-of-data exit is taken, the task is abnormally 
terminated. For additional information on the EODAD 
routine, see Data Administration Guide . 

Source: The EODAD operand can be supplied in the DCB macro 

instruction or by the problem program before the end of the 
data set has been reached. 

EROPT = CACC |SKP I ABE} 

The EROPT operand specifies the action taken by the system 
if an uncorrectable input/output data validity error occurs 
and no error analysis CSYNAD) routine address has been 
provided, or it specifies the action taken by the system 
after the error analysis routine has returned control to 
the system with a RETURN macro instruction. The specified 
action is taken for input operations for all devices or for 
output operations to a printer. 

Uncorrectable input/output errors resulting from channel 
operations or direct access operations that make the next 
record inaccessible cause the task to be abnormally 
terminated regardless of the action specified in the EROPT 
operand. 

ACC 

specifies that the problem program accepts the block 
causing the error. This action can be specified when 
a data set is opened for INPUT, RDBACK, UPDAT, or 
OUTPUT (OUTPUT applies to printer data sets only). 

SKP 

specifies that the block that caused the error is to 
be skipped. Specifying SKP also causes the buffer 
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associated with the data block to be released. This 
action can be specified when a data set is opened for 
INPUT, RDBACK, or UPDAT. 


specifies that the error is to result in the abnormal 
termination of the task. This action can be specified 
when the data set is opened for INPUT, OUTPUT, RDBACK, 
or UPDAT. 

If the EROPT operand is omitted, the ABE action is assumed. 

Note: If the EROPT operand is ACC or SKIP, accept or skip 

processing is done after returning from the error analysis 
(SYNAD) routine. For this reason, FEOV should not be 
issued from within the error analysis routine. 

Source: The EROPT operand can be specified in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, or by the problem program at any time. The 
problem program can also change the action specified at any 
time. 

EXLST= rele xp 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program requires additional processing for the 
following: user labels, user totaling, data control block 

exit routines, end-of-volume, block count exits, defining a 
forms control buffer (FCB) image, using the JFCBE exit (for 
the 3800 printer), or using the DCB abend exit for abend 
condition analysis. 

For the format and requirements of exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 197. For additional information about exit routine 
processing, see D a t a ,. Adn )lnis±E.a.ti Q0.6M j de . 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program any time before the 
exit is required by the problem program. 

LRECL=f absexp IX I OK I nnnnn Kl 

The LRECL operand specifies the length, in bytes, for 
fixed-length logical records, or it specifies the maximum 
length, in bytes, for variable-length or undefined-length 
(output only) logical records. The value specified in the 
LRECL operand cannot exceed the value specified in the 
BLKSIZE operand except when variable-length spanned records 
are used. 

For fixed-length records that are unblocked, the value 
specified in the LRECL operand must be equal to the value 
specified in the BLKSIZE operand. For blocked fixed-length 
records, the value specified in the LRECL operand must be 
evenly divisible into the value specified in the BLKSIZE 
operand. 

For variable-length logical records, the value specified in 
the LRECL operand must include the maximum data length (up 
to 32752) plus 4 bytes for the record-descriptor word 
(RDN). 

For undefined-length records, the problem program must 
insert the actual logical record length into the DCBLRECL 
field before writing the record, or the maximum-length 
record will be written. 

For variable-length spanned records, the logical record 
length (LRECL) can exceed the value specified in the 
BLKSIZE operand, and a variable-length spanned record can 
exceed the maximum block size (32760 bytes). Nhen the 
logical record length exceeds the maximum block size (for 
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non-XLRI processing), LRECL=X must be specified and GET or 
PUT locate mode must be used. 

For ISO/ANSI/FIPS variable-length spanned records (RECFM=DS 
or RECFM=DBS), the extended logical record interface (XLRI) 
may be used when the maximum logical record length exceeds 
32760 bytes. XLRI must be invoked by specifying LRECL=QK 
or L RECL=nnnnnK . The value nnnnnK may range from IK to 
16383K. The value determines the size of the record area 
(in 1024-byte units) required to contain the longest 
logical record of the data set. When LRECL = 0K is 
specified^ the length of the longest logical record must 
come from the DD statement or the data set label. XLRI 
processing is only valid in QSAM locate mode. You must not 
specify LREQLzX for &E C£ M=B2 or UBS. 

Source: The LRECL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. The label will indicate a logical record length 
of , 99999 l when an IBM standard label tape contains a 
logical record equal to or greater than 100K bytes. The 
label will indicate f 00000 l if the same maximum is reached 
for an ISO/ANSI/FIPS label tape. 

Note: When LRECL=0K is used in the DCB, the LRECL data 

must come from JCL, the file label (for an input data set), 
or from the DCB exit during open merge. 

Although LRECL=0K is only valid when RECFM=DS or DBS, you 
can specify the OK option on the DCB macro even though the 
RECFM is not determined until the DCB is opened. (The 
RECFM is obtained from the data set label or the DD 
statement.) If you specify neither the DS nor the DBS 
option, the system turns the OK indicator off, and restores 
it when the DCB is closed. 

MACRF={{(G{M|L|D}CC] )} 

C(PtM|L|D}CC3 )}} 

{(G{M|L|D}EC],P£M|L|T|D}[C] )}} 

The MACRF operand specifies the type of macro instructions 
(GET, PUT or PUTX, CNTRL, RELSE, and TRUNC) and the 
transmittal modes (move, locate, and data) that are used 
with the data set being created or processed. The operand 
can be coded in any of the combinations shown above; the 
following describes the characters that can be coded: 

C 

specifies that the CNTRL macro instruction is used 
with the data set. If the CNTRL macro instruction is 
specified, the data set should be for a card reader 
(stacker selection) or printer (carriage and spacing 
control). The CNTRL option can be specified with GET 
in the move mode only. Use of the CNTRL macro is 
invalid for 3525 input data sets. 

D 

specifies that the data transmittal mode is used (only 
the data portion of a record is moved to or from the 
work area). Data mode is used only with 
variable-length spanned records. 

G 

specifies that GET macro instructions are used. 
Specifying G also provides the routines that allow the 
problem program to issue RELSE macro instructions. 

L 

specifies that the locate transmittal mode is used; 
the system provides the address of the buffer 
containing the data. 
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M 

specifies that the move transmittal mode is used; the 
system moves the data from the buffer to the work area 
in the problem program. 

P 

specifies that PUT or PUTX macro instructions are 
used. Specifying P also provides the routines that 
allow the problem program to issue TRUNC macro 
instructions. 

Note: For data sets processed by QSAM using MACRF=(GM) or 

MACRF=CPM), do not code BFTEK=A. 

Source: The MACRF operand can be supplied only in the DCB 

macro instruction. 

OPTCD={{B} 

{TJ 

{utcn 

{CCT3CBHU3J 
{HCZ3 CB33 
{JCC3CU33 
CWCC3CT3EB3CU3} 

{ZCC3 CT3 LB3[U33 

CQEC3EB3ET33 

{Z3J 

The OPTCD operand specifies the optional services used with 
the QSAM data set. Two of the optional services; OPTCD=B 
and OPTCD=H, cannot be specified in the DCB macro 
instruction. They are requested in the DCB subparameter of 
a DD statement. Because all optional services codes must 
be supplied by the same source, the OPTCD operand must be 
omitted from the DCB macro instruction if either of these 
options is requested in a DD statement. The following 
describes the characters that can be specified: 

C 

requests that chained scheduling be used. OPTCD=C 
cannot be specified when either BFTEK=A or BFTEK = R is 
specified for the same data control block. Also, 
chained scheduling cannot be specified for associated 
data sets or printing on a 3525 and is ignored for 
direct access devices. 

Note: Except where it is not allowed, chained 

scheduling is used whether requested or not. For 
conditions under which it is not allowed, see Data 
A d m j ni s J;na± i g.n-,G u j_d.g. 

J 

specifies that the first data byte in the output data 
line will be a 3800 table reference character. This 
table reference character selects a particular 
character arrangement table for the printing of the 
data line and can be used singly or in conjunction 
with ISO/ANSI/FIPS or machine control characters. 

This option is valid only for the IBM 3800 Printing 
Subsystem. For information on the table reference 
character and character arrangement table, see IBM 
3800 Printing Subsystem Programmer^ Guide . 

Q 

requests that ISCII/ASCII tape records in an input 
data set be converted to EBCDIC code when the input 
record has been read, or an output record in EBCDIC 
code be converted to ISCII/ASCII code before the 
record is written. For further information on this 
conversion, see "Variable-Length Records—Format D ff in 
DaJ;.a.^A dm i n.Ls_t pa li o n .j £ujdg . 

The Q option is unconditionally set by open routines 
if the data set is for a tape with ISO/ANSI/FIPS 
labels. For ISCII/ASCII to EBCDIC or EBCDIC to 
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T 

requests the user totaling function. If this function 
is requested, the EXLST operand should specify the 
address of an exit list to be used. T cannot be 
specified for a SYSIN or SYSOUT data set. 

U 

is specified only for a printer with the 
universal-charactei—set feature or the IBM 3800 
Printing Subsystem. This option unblocks data checks 
(permits them to be recognized as errors) and allows 
analysis by the appropriate error analysis routine 
(SYNAD exit routine). If the U option is omitted, 
data checks are not recognized as errors. 

For the IBM Mass Storage System (MSS); U requests 
window processing to reduce the amount of staging 
space required to process large sequential data sets 
on MSS. DSORG must specify physical sequential, 
allocation must be in cylinders, and type of I/O 
accessing must be either INPUT only or OUTPUT only. 

W 

for DASD, specifies that the system is to perform a 
validity check on each record written on a direct 
access device. For buffered devices, specifies that 
device end interrupt is to be given only when a record 
is physically on the device. By specifying 0PTCD=W 
with buffered devices, you do not benefit from the 
performance advantage of buffering. 

Z 

requests, for magnetic tape, input only, the system to 
shorten its normal error recovery procedure to 
consider a data check as a permanent I/O error after 
five unsuccessful attempts to read a record. This 
option is available only if it is also specified as a 
SYSGEN option. OPTCD=Z is used when a tape is known 
to contain errors and there is no need to process 
every record. The error analysis routine (SYNAD) 
should keep a count of permanent errors and terminate 
processing if the number becomes excessive. 

For direct access devices only, the Z option is 
ignored. 

Note: The following describes the optional services that 

can be specified in the DCB subparameter of a DD statement. 

If either of these options is requested, the complete OPTCD 

operand must be supplied in the DD statement. 

B 

If 0PTCD=B is specified in the DCB subparameter of a 
DD statement, it forces the end-of-volume (EOV) 
routine to disregard the end-of-file recognition for 
magnetic tape. When this occurs, the EOV routine uses 
the number of volume serial numbers to determine end 
of file. For an input data set on a standard labeled 
(SL or AL) tape, the EOV routine will treat EOF labels 
as EOV labels until the volume serial list is 
exhausted. After all the volumes have been read, 
control is passed to the user’s end-of-data routine. 
This option allows SL or AL tapes to be read out of 
volume sequence or to be concatenated to another tape 
using one DD statement. 

H 

If OPTCD=H is specified in the DCB subparameter of a 
DD statement, it specifies that the DOS/OS interchange 
feature is being used with the data set. 
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DCB CQSAM) 


RECFM={CyCTHA|M3}} 

CVtBLSICTIISCT3|T3CA|M3} 

CDCBCS3I[S3[A3 3} 

£FEB!SITIBS|BT 3 CAIM 3}} r N 

The RECFM operand specifies the record format and (f 

characteristics of the data set being created or processed. 

All record formats can be used in QSAM. The following 
describes the characters that can be specified: 

A 

specifies that the records in the data set contain 
ISO/ANSI/FIPS control characters. For a description 
of control characters, see Appendix E, "Control 
Characters" on page 199. 

B 

specifies that the data set contains blocked records. 

D 

specifies that the data set contains variable-length 
ISCII/ASCII tape records. See OPTCD=Q and the BUFOFF 
operand for a description of how to specify 
ISCII/ASCII data sets. 

F 

specifies that the data set contains fixed-length 
records. 

N 

specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 199. RECFM=M cannot be used with 
ISCII/ASCII data sets. 

S 

specifies, for fixed-length records, that the records 

are to be written as standard blocks; the data set , ^ 

does not contain any truncated blocks or unfilled 

tracks, with the exception of the last block or track V..,,./ 

in the data set. Do not code S for fixed-length 

records to retrieve records from a data set that was 

created using a RECFM other than standard. 

For variable-length records, S specifies that a record 
can span more than one block. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track and the remainder of the record 
on the following track (if required). Chained 
scheduling (OPTCD=C) cannot be requested if track 
overflow is used. 

u 

specifies that the data set contains undefined-length 
records. 

Note: Format-U records are not supported for Version 

3 ISO/ANSI/FIPS tapes. An attempt to process a 
format-U record for a Version 3 tape results in a 
label validation installation exit being taken. 

ISO/ANSI Version 1 (ISO 1001-1969 or ANSI X3.27-1969) 
format-U records can be used for input only. These 
records are the same as the format-U records described 
above, except that the control characters must be 
ISO/ANSI control characters, and block prefixes can be 
used. 


specifies that the data set contains variable-length (f 

records. % 
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Notes: 

• RECFM=V cannot be specified for a card reader data set 
or an ISO/ANSI/FIPS tape data set. 

• RECFM=VS, VBS, DS, or DBS cannot be specified for a 
SYSIN data set. 

• RECFM=DS or RECFM=DBS provides blocking, unblocking, 
and segmenting for Version 3 ISO/ANSI/FIPS tape data 
sets. 

Source: The RECFM operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 

SYNAD= relex p 

The SYNAD operand specifies the address of the error 
analysis routine given control if an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. 

If the error condition was the result of a data-validity 
error, the control program takes the action specified in 
the EROPT operand; otherwise, the task is abnormally 
terminated. The control program takes these actions when 
the SYNAD operand is omitted or when the error analysis 
routine returns control. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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DCBP—PROVIDE SYMBOLIC REFERENCE TO DATA CONTROL BLOCKS (EDAM, BISAM, BPAM» BSAH, 
QISAM, AND QSAM) 


The DCBD macro instruction is used to generate a dummy control 
section that provides symbolic names for the fields in one or 
more data control blocks. The names and attributes of the 
fields appear as part of the description of each data control 
block in Appendix F, ”Data Control Block Symbolic Field Names” 
on page 202. Attributes of the symbolically named fields in the 
dummy section are the same as the fields in the data control 
blocks, with the exception of fields containing 3-byte 
addresses. The symbolically named fields containing 3-byte 
addresses have length attributes of 4 and are aligned on 
fullword boundaries. 

The labels generated by the DCBD macro should not be defined 
within a user program. The macro labels are structured as DCB 
xxxxx, where DCB is the first 3 characters and xxxxx is 1 to 5 
alphameric characters. 

The name of the dummy control section generated by a DCBD macro 
instruction is IHADCB. The use of any of the symbolic names 
provided by the dummy section must be preceded by a USING 
instruction specifying IHADCB and a dummy section base register 
(which contains the address of the actual data control block). 
The DCBD macro instruction can only be issued once within any 
assembled module; however, the resulting symbolic names can be 
used for any number of data control blocks by changing the 
address in the dummy section base register. The DCBD macro 
instruction can be coded at any point in a control section; if 
coded at any point other than at the end of a control section, 
however, the control section must be resumed by coding a CSECT 
instruction. 

The DCBD macro is written: 


b 

DCBD 

[DS0RG=(£GS| 



[BS][,DA][,XSH,LRn,POn,PSn,QS]})] 



[,DEVD=([DA][,PC][,PR][,RD][,TA] 



[.MR])] 


DS0RG=({GS|CBS]C,DA]C,IS3 C,LR]C,PO3 C,PS][,QS3J) 

The DSORG operand specifies the types of data control 
blocks for which symbolic names are provided. If the DSORG 
operand is omitted, the DEVD operand is ignored, and 
symbolic names are provided only for the 'foundation block* 
portion that is common to all data control blocks. One or 
more of the following pairs of characters can be specified 
(each pair of characters must be separated by a comma): 

BS 

specifies a data control block for a sequential data 
set and basic access method. 

DA 

specifies a data control block for a direct data set. 

IS 

specifies a data control block for an indexed 
sequential data set. 

LR 

specifies a dummy section for the logical record 
length field (DCBLRECL) only. 

PO 

specifies a data control block for a partitioned data 
set. 

PS 

specifies a data control block for a sequential data 
set. PS includes both BS and QS. 
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QS 

specifies a data control block for a sequential data 
set and queued access method. 

GS 

specifies a data control block for graphics; this 
operand cannot be used in combination with any of the 
above. 

DEVD=[DA3[,PC3C,PR3[,RD3[,TA3E,MR3 

The DEVD operand specifies the types of devices on which 
the data set can reside. If the DEVD operand is omitted 
and a sequential data set is specified in the DSORG 
operand, symbolic names are provided for all the device 
types listed below. One or more of the following pairs of 
characters can be specified; each pair of characters must 
be separated by a comma: 

DA 

Direct access device 

PC 

On-line punch 

PR 

On-line printer 

RD 

On-line card reader or read punch feed 

TA 

Magnetic tape 
MR 

Magnetic character reader 
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ESETL—END SEQUENTIAL RETRIEVAL (QISAM) 

The ESETL macro instruction ends the sequential retrieval of 
data from an indexed sequential data set and causes the buffers 
associated with the specified data control block to be released. 
An ESETL macro instruction must separate SETL macro instructions 
issued for the same data control block. 

The ESETL macro is written: 


[ symbol 3 


ESETL 


de b . addres s 


deb address —RX-Type Address, (2-12), or Cl) 

The deb address operand specifies the address of the data 
control block opened for the indexed sequential data set 
being processed. 
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FEOV 


FEOV—FORCE END OF VOLUME (BSAM AND QSAM) 

The FEOV macro instruction causes the system to assume an 
end-of-volume condition, and causes automatic volume switching. 
Volume positioning for magnetic tape can be specified by the 
option operand. If no option is coded, the positioning 
specified in the OPEN macro instruction is used. Output labels 
are created as required and new input labels are verified. The 
standard exit routines are given control as specified in the 
data control block exit list. For BSAM, all input and output 
operations must be tested for completion before the FEOV macro 
instruction is issued. The end-of-data-set (EODAD) routine is 
given control if an input FEOV macro instruction is issued for 
the last volume of an input data set. FEOV is ignored if issued 
for a SYSIN or SYSOUT data set. 

The FEOV macro is written; 


tsymbP-U 

FEOV 

deb address 



[,REWIND I,LEAVE] 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for an opened sequential data set. 

REWIND 

requests that the system position the tape at the load 
point regardless of the direction of processing. 


LEAVE 

requests that the system position the tape at the logical 
end of the data set on that volume; this option causes the 
tape to be positioned at a point after the tapemark that 
follows the trailer labels. Note that multiple tape units 
must be available to achieve this positioning. If only one 
tape unit is available, its volume is rewound and unloaded. 

Note: If an FEOV macro is issued for a multivolume data 

set with spanned records that is being read using QSAM, 
errors may occur when the next GET macro is issued 
following an FEOV macro if the first segment on the new 
volume is not the first segment of a record. The errors 
include duplicate records, program checks in the user 
program, and invalid input from the variable spanned data 
set. 


The FEOV macro should not be used within the error analysis 
routine (SYNAD). 
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FIND—ESTABLISH THE BEGINNING OF A DATA SET MEMBER (BPAM) 

The FIND macro instruction causes the system to use the address 
of the first block of a specified partitioned data set member as 
the starting point for the next READ macro instruction for the 
same data set. All previous input and output operations that 
specified the same data control block must have been tested for 
completion before the FIND macro instruction is issued. 

The FIND macro is written: 


[ symbol 3 


FIND 


deb address 

*{ name address *PI relative address list »C> 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened partitioned data set being 
processed. 

name address —RX-Type Address, (2-12), or (0) 

The name address operand specifies the address of an 8-byte 
field that contains the data set member name. The name 
must start in the first byte and be padded on the right (if 
necessary) to complete the 8 bytes. 


D 

Specifies that only a member name has been supplied, and 
the access method must search the directory of the data set 
indicated in the data control block to find the location of 
the member. 

relative address list —RX-Type Address, (2-12), or (0) 

The relative address list operand specifies the address of 
the area that contains the relative address (TTRK) for the 
beginning of a data set member. The relative address can 
be a list entry completed by using a BLDL macro instruction 
for the data set being processed, or the relative address 
can be supplied by the problem program. 

C 

specifies that a relative address has been supplied, and no 
directory search is required. The relative address 
supplied is used directly by the access method for the next 
input operation. 

Note: When using the FIND macro, the DCBRELAD address in 

the DCB is updated. The FIND macro should not be used 
after WRITE and STOW processing without first closing the 
data set and reopening it for INPUT processing. 


COMPLETION CODES 


For relative address list » C, when the system returns control to 
the problem program, the low-order byte of register 15 contains 
the following return code; the 3 high-order bytes of register 15 
are set to 0. 

relative address list , C 

00 — At all times. If the relative address is in error, 
execution of the next CHECK macro instruction causes 
control to be passed to the error analysis (SYNAD) 
routine. 
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FIND 


For name address * D, when the system returns control to the 
problem program; the low-order byte of register 15 contains a 
return code and the low-order byte of register 0 contains a 
reason code. The 3 high-order bytes of these two registers are 
set to 0. 


name address * D 


Return 

Code (15) 

Reason 

Code (0) 

Meaning 



00 CX'00*) 

00 

(X'00') 

Successful execution 

. 


04 (X'04 *) 

00 

o 

X 

o 

o 

w 

Name not found. 



CO 

o 

X 

Smf 

CO 

o 

00 

(X'00 1 ) 

Permanent I/O error 
search. 

during 

directory 

08 (X'08') 

04 

(X'04') 

Insufficient virtual 

storage available 

08 (X'08') 

08 

(X'08 ' ) 

Invalid DEB. (Not in 

key 0 

through 7.) 
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The FREEBUF macro instruction causes the system to return a 
buffer to the buffer pool assigned to the specified data control 
block. The buffer must have been acquired using a GETBUF macro 
instruction. 

The FREEBUF macro is written; 


tsYULbol] 

FREEBUF 

■dg_fa_a d d c.eag 



»register 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for an opened data set to which the buffer 
pool has been assigned. 

register —(2-12) 

The register operand specifies one of registers 2 through 
12 that contains the address of the buffer being returned 
to the buffer pool. 
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FREEDBUF 


FREEDBUF—RETURN A DYNAMICALLY OBTAINED BUFFER (BDAM AND BISAM) 

The FREEDBUF macro instruction causes the system to return a 
buffer to the buffer pool assigned to the specified data control 
block. The buffer must have been acquired through dynamic 
buffering; that is, by coding 'S' for the area address operand 
in the associated READ macro instruction. 

Note: A buffer acquired dynamically can also be released by a 

WRITE macro instruction; see the description of the WRITE macro 
instruction for BDAM or BISAM. 

The FREEDBUF macro is written: 


Csvmbol] 

FREEDBUF 

decb address 



.{KID} 

.deb address 


decb address —RX-Type Address, (2-12), or (0) 

The decb address operand specifies the address of the data 
event control block (DECB) used or created by the READ 
macro instruction that acquired the buffer dynamically. 


K 

specifies that BISAM is being used. 

D 

specifies that BDAM is being used. 

deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened data set being processed. 
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FREEPOOL—RELEASE A BUFFER POOL (EDAM, BISAM, BPAM, BSAM, QISAM, AND QSAM) 

The FREEPOOL macro instruction causes an area of storage, 
previously acquired for a buffer pool for a specified data 
control block, to be released. The area must have been acquired 
either automatically (except when dynamic buffer control is 
used) or by the execution of a GETPOOL macro instruction. For 
queued access methods, the FREEPOOL macro instruction must not 
be issued until after a CLOSE macro instruction has been issued 
for all the data control blocks using the buffer pool. For 
basic access methods, the FREEPOOL macro instruction can be 
issued as soon as the buffers are no longer required. A buffer 
pool should be released only once, regardless of the number of 
data control blocks sharing the buffer pool. 

The FREEPOOL macro is written: 


C svmbol 3 


FREEPOOL 


deb address 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of a data 
control block to which the buffer pool has been assigned. 
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GET 
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The GET macro instruction causes the system to retrieve the next 
record. Control is not returned to the problem program until 
the record is available. 

The GET macro is written: 


[symbol 3 

GET 

deb address 



C,area address) 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened input data set being 
retrieved. 

area address —RX~Type Address, (2-12), or (0) 

The area address operand specifies the storage address into 
which the system is to move the record (move mode only). 
Either the move or locate mode can be used with QISAM, but 
they must not be mixed within the specified data control 
block. The following describes operations for move and 
locate modes: 

Locate Mode: If locate mode has been specified in the data 
control block, the area address operand must be omitted. 

The system returns the address of the buffer segment 
containing the record in register 1. 

Move Mode: If move mode has been specified in the data 
control block, the area address operand must specify the 
address in the problem program into which the system will 
move the record. If the area address operand is omitted, 
the system assumes that register 0 contains the area 
address. When control is returned to the problem program, 
register 0 contains the area address, and register 1 
contains the address of the data control block. 


Notes: 

1. The end-of-data-set (EODAD) routine is given control if the 
end of the data set is reached; the data set may be closed 
if processing is completed, or an ESETL macro must be issued 
before a SETL macro to continue further input processing. 

2. The error analysis (SYNAD) routine is given control if the 
input operation could not be completed successfully. The 
contents of the general registers when control is given to 
the SYNAD exit routine are described in Appendix A, "Status 
Information Following an Input/Output Operation" on 

page 192, 

3. When the key of an unblocked record is retrieved with the 
data, the address of the key is returned as follows (see the 
SETL macro instruction): 

Locate Mode: The address of the key is returned in register 

0 . 

Move Mode: The key appears in front of the record in your 
buffer area. 

4. If a GET macro instruction is issued for a data set and the 
previous request issued for the same data set was an OPEN, 
ESETL, or unsuccessful SETL (no record found), a SETL B (key 
and data) is invoked automatically, and the first record in 
the data set is returned. 


Macro Instruction Descriptions 99 




GET 

GET—OBTAIN NEXT LOGICAL RECORD (QSAM1 


The GET macro instruction causes the system to retrieve the next 
record. Various modes are available and are specified in the 
DCB macro instruction. In the locate mode, the GET macro 
instruction locates the next sequential record or record segment 
to be processed. The system returns the address of the record 
in register 1 and places the length of the record or segment in 
the logical record length (DCBLRECL) field of the data control 
block. The DCBLRECL field is not changed when GET is used in 
XLRI processing. The user can process the record within the 
input buffer or move the record to a work area. 

In move mode, the GET macro instruction moves the next 
sequential record to the user's work area. This work area must 
be large enough to contain the largest logical record of the 
data set and its record-descriptor word (variable-length 
records). The system returns the address of the work area in 
register 1. The record length is placed in the DCBLRECL field. 
Move mode can be used only with simple buffering. 

In data mode, which is available only for variable-length 
spanned records, the GET macro instruction moves only the data 
portion of the next sequential record to the user's work area. 
The TYPE=P operand cannot be used with data mode. 

If the ISCII/ASCII translation routines are included when the 
operating system is generated, translation can be requested by 
coding LABEL=(,AL) or (,AUL) in the DD statement, or it can be 
requested by coding 0PTCD=Q in the DCB macro instruction or DCB 
subparameter of the DD statement. When translation is 
requested, all QSAM records whose record format (RECFM operand) 
is F, FB, D, DS, DB, DBS, or U are automatically translated from 
ISCII/ASCII code to EBCDIC code as soon as the input buffer is 
full. For translation to occur correctly, all input data must 
be in ISCII/ASCII code. 

The GET macro is written: 


[gymbo.n 

GET 

{dpb_.addresg 1 pdab .jadd.t:es.s} 



[.area address! 



[,TYPE=P] 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened input data set being 
retrieved. 

pdab address —RX-Type Address, (2-12), or (1) 

The pdab address operand specifies the address of the 
parallel data access block for the opened input data sets 
from which a record is to be retrieved. When pdab address 
is used, TYPE=P must be coded. 

area,address —RX-Type Address, (2-12), or (0) 

The area address operand specifies the address of an area 
into which the system is to move the record (move or data 
mode). The move, locate, or data mode can be used with 
QSAM, but must not be mixed within the specified data 
control block. If the area address operand is omitted in 
the move or data mode, the system assumes that register 0 
contains the area address. The following describes the 
operation of the three modes: 

Locate Mode: If locate mode has been specified in the data 
control block, the area address operand must be omitted. 
The system returns the address of the beginning buffer 
segment containing the record in register 1. If the data 
set is open for RDBACK, register 1 will point to the 
beginning of the record. 
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GET 


When retrieving variable-length spanned records, and the 
logical record interface (LRI) or extended logical record 
interface (XLRI) is not used, the records are obtained one 
segment at a time. The problem program must retrieve 
additional segments by issuing subsequent GET macro 
instructions, except when a logical record interface is 
requested (by specifying BFTEK=A in the DCB macro 
instruction or by issuing a BUILDRCD macro instruction, or 
by specifying DCBLRECL=OK or nnnnnK in the DCB macro). In 
this case, the control program retrieves all record 
segments and assembles the segments into a complete logical 
record. The system returns the address of this record area 
in register 1. 

When the maximum logical record length is greater than 
32756 bytes, LRECL=X must be specified in the data control 
block, and the problem program must assemble the segments 
into a complete logical record. LRECL=X and/or segment 
mode processing is invalid for ISO/ANSI/FIPS spanned 
records, RECFM=DS or RECFM=DBS. 

Move Mode: If move mode has been specified in the data 
control block, the area address operand specifies the 
beginning address of an area in the problem program into 
which the system will move the record. If the data set is 
open for RDBACK, the area address operand specifies the 
ending address of an area in the problem program. 

If move mode has been specified in the data control block, 
do not code BFTEK=A. 

For variable-length spanned records, the system constructs 
the record-descriptor word in the first four bytes of the 
area and assembles one or more segments into the data 
portion of the logical record area; the segment descriptor 
words are removed. When XLRI mode is used, the record 
descriptor word (RDW) in the record area is a fullword 
value. 

Data Mode: If data mode has been specified in the data 
control block (data mode can be specified for 
variable-length spanned records only), the area address 
operand specifies the address of the area in the problem 
program into which the system will move the data portion of 
the logical record; a record-descriptor word is not 
constructed when data mode is used. The TYPE=P operand 
cannot be used with data mode. 

Extended Logical Record Interface (XLRI): When the GET 
macro is used in XLRI mode, the address returned in 
register 1 points to a fullword record length value. The 
three low-order bytes of the fullword indicate the length 
of the complete logical record plus four bytes for the 
fullword. 

XLRI mode requires a record area to assemble a complete 
logical record from the segments that are read. 

If a record area is not automatically obtained by OPEN 
processing, you can construct a record by using the 
BUILDRCDmacro before issuing the OPEN. The DCB LRECL 
field indicates the length of the area in K units (1024 
bytes) required to contain the longest logical record of 
the data set. 

Note: If spanned records extend across volumes, errors may 

occur when using the GET macro if a volume that begins with 
a middle or last record segment is mounted first, or if an 
FEOV macro is issued followed by a GET macro. QSAM cannot 
begin reading from the middle of the record. (This applies 
to move mode, data mode, and locate mode if logical record 
interface is specified.) 
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GET 


TYPE=P—Coded as shown 

The TYPE=P and PDAB address operands are used to retrieve a 
record from a queue of input data sets that have been 
opened. The open and close routines add and delete DCB 
addresses in the queue. The DCB from which a record is 
retrieved can be located from information in the PDAB. For 
this purpose, the formatting macro, PDABD, should be used. 



GET ROUTINE EXITS 


The end-of-data~set CEODAD) routine is given control if the end 
of the data set is reached; the data set must be closed. 

Issuing a GET macro instruction in the EODAD routine results in 
abnormal termination of the task. 

The error analysis (SYNAD) routine is given control if the input 
operation could not be completed successfully. The contents of 
the general registers when control is given to the SYNAD exit 
routine are described in Appendix A, "Status Information 
Following an Input/Output Operation” on page 192. 
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GETBUF 


GETBUF—OBTAIN A BUFFER (BPAM, BISAM, BPAM, AND B5AM) 

The GETBUF macro instruction causes the control program to 
obtain a buffer from the buffer pool assigned to the specified 
data control block and to return the address of the buffer in a 
designated register. The BUFCB field of the data control block 
must contain the address of the buffer pool control block when 
the GETBUF macro instruction is issued. The system returns 
control to the instruction following the GETBUF macro 
instruction. The buffer obtained must be returned to the buffer 
pool using a FREEBUF macro instruction. 

The GETBUF macro is written: 


[symbol) 

GETBUF 

deb address 



,register 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block that contains the buffer pool control block 
address. 

The register operand specifies one of the registers 2 
through 12 in which the system is to place the address of 
the buffer obtained from the buffer pool. If no buffer is 
available, the contents of the designated register are set 
to 0 . 
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GETPOOL 

GETPOOL—BUILD A BUFFER POOL (BPAM, BISAM, BPAM, BSAM» QISAM, AND QSAM) 


The GETPOOL macro instruction causes a buffer pool to be 
constructed in a storage area acquired by the system. The 
system places the address of the buffer pool control block in 
the BUFCB field of the data control block. The GETPOOL macro 
instruction must be issued either before an OPEN macro 
instruction is issued or during the data control block exit 
routine for the specified data control block. 

The GETPOOL macro is written.* 



(svmbol3 

GETPOOL 

deb address 



t {n um_bex_o.f_b.ufie.es , b.ufffi L. Le.nsfb 1 (0)J 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block to which the buffer pool is assigned. Only 
one buffer pool can be assigned to a data control block. 

number of buffers —symbol, decimal digit, absexp, or (2-12) 

The numbei—of-buffers operand specifies the number of 
buffers in the buffer pool to a maximum of 255. 

buffer length —symbol, decimal digit, absexp, or (2-12) 

The buffer length operand specifies the length, in bytes, 
or each buffer in the buffer pool. The value specified for 
the buffer length must be a doubleword multiple; otherwise, 
the system rounds the value specified to the next higher 
doubleword multiple. The maximum length that can be 
specified is 32760 bytes. For QSAM, the buffer length must 
be at least as large as the value specified in the block 
size (DCBBLKSI) field in the data control block. 

(0)—Coded as shown 

The number of buffers and buffer length can be specified in 
general register 0. If (0) is coded, register 0 must 
contain the binary values for the number of buffers and 
buffer length as shown in the following illustration: 


Bits: 


Register 0 


0 


Number of Buffers 


15 16 


Buffer Length 


31 


The following illustration shows the format of the buffer pool. 
The buffer pool and the associated storage area are released by 
issuing a FREEP00L macro instruction after issuing a CLOSE macro 
instruction for the data set indicated in the specified data 
control block. 
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GETPOOL 


Area 

Address 


BUFAD 


BUFNO 

BUFL 

Buffer 

j 

L_ 

Buffer 

Address of First 
Available 

Buffer 

Reserved 

for 

Flags 

Number 

of 

Buffers 

Length 
of Each 
Buffer 

0 

—. _ U..f 

4 1 

fpf P^x/aI C~^f\r\ t 

5 

-^1 _ 

6 

8 


—Buffer Length—■» 


ier root v^oni 
(8 bytes) 


*—Butter Length 

^ Area Length= (Buffer Length) x (Number of Buffers) +8 ' 
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MSGDISP 


MSGDISP—MESSAGE DISPLAY (DRIVE READY) 

The MSGDISP macro is used to load the message display on an IBM 
3480 Magnetic Tape Subsystem. Functions for the display 
include: 

• Displaying a ready message 

• Mount volume 1 

• Demount volume 1 

• Reset display 1 

• Verify volume 1 

• Generalized display 1 

1 For an explanation of these MSGDISP macro functions, see 
S y s t em rJ a _t.a ._A.„ d mi n j s t r a 11 . Q Q . 


MSGDISP—DISPLAYING A READY MESSAGE 

The MSGDISP macro is written: 


Esvmbol] 

MSGDISP 

RDY 



t DCB=addr 

t ,TXT=t'msgt.K.t' laddrj 3 


RDY 

specifies that text supplied in the TXT parameter will be 
displayed in positions 2 through 7 of the display while the 
data set is open. The display will be steady (not 
flashing) and will be enclosed in parentheses. The display 
will also be written to the tape pool console (routing code 
3, descriptor code 7). 

DCB= addr 

specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated, the 
message display will be directed to the one containing the 
volume currently in use. 

Note: If multiple devices or multiple volumes are 

allocated, you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics, the open DCB exit may be used 
to update the display. 

addr —RX-Type address, A-Type address, or (2-12) 

specifies an in-storage address of the opened DCB. 

TXT=C 1 msgtxt 1 l addr l 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks 
will be displayed. 

'msal xi * 

specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 

addr —RX-Type address, A-Type address, or (2-12) 

specifies an in-storage address of an area containing 
the text to be displayed. 
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MSGDISP— LIST FORM 


The list form of the MSGDISP macro is written: 


[svmbol1 

MSGDISP 

[RDY] 



[,DCB=addrl 



,MF=L 



[,TXT={'msgtxt'laddc}] 


RDY 

specifies that text supplied in the TXT parameter will be 
displayed in positions 2 through 7 while a data set is 
open. The display will be steady (not flashing) and will 
be enclosed in parentheses. The display will also be 
written to the tape pool console (routing code 3, 
descriptor code 7). 

DCB= a ddr 

specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated, the 
message display will be directed to the one containing the 
volume currently in use. 

Note: If multiple devices or multiple volumes are 

allocated, you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics, the open DCB exit may be used 
to update the display. 

addr —A-Type address 

specifies an in-storage address of the opened DCB. 


MF=L 

specifies the list form of MSGDISP. This generates a 
parameter list that contains no executable instructions. 

The list can be used as input to and can be modified by the 
execute form. 

TXT=C 1 msgtxt *laddrJ 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks 
will be displayed. 

1 msgtxt 1 

specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 

addr —A-Type address 

specifies an in-storage address of an area containing 
the text to be displayed. 
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MSGDISP—EXECUTE FORM 

The execute form of the MSGDISP macro is written: 


Csvmbol] 

MSGDISP 

RDY 



[»DCB=addr] 

,MF=(E,addr) 

[, TXT={ ' msg±xi' I addr.! 3 



RDY 

specifies that text supplied in the TXT parameter will be 
displayed in positions 2 through 7 while a data set is 
open. The display will be steady (not flashing) and will 
be enclosed in parentheses. The display will also be 
written to the tape pool console (routing code 3, 
descriptor code 7). 

DCB=addr 

specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated, the 
message display will be directed to the one containing the 
volume currently in use. 

Note: If multiple devices or multiple volumes are 

allocated, you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics, the open DCB exit may be used 
to update the display. 

a ddr —RX-Type address, A-Type address, or (2-12) 

specifies an in-storage address of the opened DCB. 

MF=(E,addr) 

specifies that the execute form of MSGDISP and an existing 
parameter list will be used. 

addr —RX-Type address, (1), or (2-12) 

specifies an in-storage address of the parameter list. 

TXT={* msotxt 1 I addr l 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks 
will be displayed. 

' ffls gtx V 

specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 

addr —RX-Type address, A-Type address, or (2-12) 

specifies an in-storage address of an area containing 
the text to be displayed. 





108 


MVS/XA Data Administration: Macro Instruction Reference 



MSGDISP 


COMPLETION CODES 


When the system returns control to your problem program; the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code: 


Return 

Reason 


Code (15) 

Code (0) 

Meaning 

00 

o 

o 

X 

s-> 



Successful completion 

04 

(X 1 04 1 ) 



Device does not support MSGDISP 

08 

( X 1 08 1 ) 

01 

(X'01 f ) 

Invalid parameter 

08 

(X'OS*) 

02 

(X ' 02 1 ) 

Invalid DCB or DEBCHK error 

08 

SS 

CO 

o 

X 

>w» 

03 

(X'03 1 ) 

Environmental error 

08 

cx'os 1 ) 

04 

(X 1 04 1 ) 

Authorization violation 

08 

cx'os') 

05 

(X'05') 

Invalid UCB 

08 

cx'os 1 ) 

06 

C X * 06 1 ) 

Invalid request 

08 

( X T 08 1 ) 

11 

( X 1 0B 1 ) 

Unsuccessful ESTAE macro call 

08 

(X'os 1 ) 

12 

(X'OC 1 ) 

Unsuccessful GETMAIN request 

12 

(X'OC') 



Input/output error (I/O Supervisor 
posted the request as an error) 


Note: An I/O error occurs for load 

display if the drive display has a 
hardware failure. 
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NOTE—PROVIDE RELATIVE POSITION (BPAM AND BSAM—TAPE AND DIRECT ACCESS ONLY) 

The NOTE macro instruction causes the system to return the 
position of the last block read from or written into a data set. 
All input and output operations using the same data control 
block must be tested for completion before the NOTE macro 
instruction is issued. 

The capability of using the NOTE macro instruction is 
automatically provided when a partitioned data set is used 
(DS0RG=P0 or POU), but, when a sequential data set (BSAM) is 
used, the use of NOTE/POINT macro instructions must be indicated 
in the MACRF operand of the DCB macro instruction. 

The NOTE macro is written: 


[symbol] 

NOTE 

deb address 



[> TYPE={ ABS 1RELl] 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block opened for the partitioned or sequential data 
set being processed. 

TYPE={ABS I REJL} 

ABS 

specifies that, after NOTE executes successfully 
(contents of register 15 is 0), register 0 contains 
the physical block identifier for the next data block 
waiting for transfer between main storage and the 
control unit buffer, and register 1 contains the 
physical block identifier of the next data block 
waiting for transfer between the control unit buffer 
and the tape drive. 

If you subtract the low-order 20 bits of register 1 
from the low-order 20 bits of register 0, the 
remainder is the number of data blocks left in the 
control unit buffer. A negative remainder means the 
buffer is in read mode, and a positive remainder means 
the buffer is in either write or read-backward mode. 

A zero remainder means that no data is buffered. 


causes the system to return the relative position of 
the last block read from or written into a data set. 
The position, in terms of the current volume, is 
returned in register 1 as follows: 

Magnetic Tape 

The block number is in binary, right-adjusted in 
register 1 with high-order bits set to zero. Do not 
use a NOTE macro instruction for tapes without 
standard labels when: 

• The data set is opened for RDBACK (specified in 
the OPEN macro instruction) or 

• The DISP parameter of the DD statement for the 
data set specifies DISP=M0D. 
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NOTE 


Direct Access Device 

TTRz format, where: 

TT is a 2-byte relative track number. 

R is a 1-byte block (record) number on the track 

indicated by TT. 

z is a byte set to zero. 

The NOTE macro instruction cannot be used for SYSOUT data sets. 

Note: Nhen a direct access device is being used, the amount of 

remaining space on the track is returned in register 0 if a NOTE 
macro instruction follows a WRITE macro instruction; if a NOTE 
macro instruction follows a READ or POINT macro instruction, the 
track capacity of the direct access device is returned in 
register 0. 


COMPLETION CODES 


When the system returns control to your problem program and you 
have specified the ABS parameter, the low-order byte of register 
15 contains a return code; the low-order byte of register 0 
contains a reason code; 

Return Reason 


Code (15) 


Code (0) 

Meaning 

00 

(X*00 f 

) 



Successful completion. 

04 

(X* 04 1 

) 



Device does not support block 
identifier. 

08 

00 

o 

X 

) 

01 

(X'Ol*) 

Incorrect parameter. 

08 

cx'08' 

) 

02 

(X 1 02 T ) 

Incorrect DCB or a DEBCHK error. 

08 

(X f 08* 

) 

03 

(X'03') 

Environmental error. 

08 

(X 1 08* 

) 

11 

(X 1 0B 1 ) 

Unsuccessful call to ESTAE macro 

08 

(X'os 1 

) 

12 

(X'OC*) 

Unsuccessful GETMAIN request. 

12 

(X'OC 

) 



Input/output error. 
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OPEN—LOGICALLY CONNECT A DATA SET (EDAM, BISAM, BPAM, BSAM, QISAM, AND QSAM) 


The OPEN macro instruction causes the specified data control 
blockCs) to be completed and the data set(s) identified in the 
data control block(s) to be prepared for processing. Input 
labels are analyzed and output labels are created. Control is 
given to exit routines as specified in the data control block 
exit list. The processing method (option 1) is designated to 
provide correct volume positioning for the data set and define 
the processing mode (INPUT, OUTPUT, and so forth) for the data 
set(s). Final volume positioning (when volume switching occurs) 
can be specified (option 2) to override the positioning implied 
by the DD statement DISP parameter. Option 2 applies only to 
volumes in a multivolume data set other than the last volume. 

Any number of data control block addresses and associated 
options may be specified in the OPEN macro instruction. 

The maximum number of DCBs that can be concurrently open to one 
unit is 127. 

If associated data sets for a 3525 card punch are being opened, 
all associated data sets must be open before an I/O operation is 
initiated for any of the data sets. For a description of 
associated data sets, see 0$ and OS/VS Programming Support for 
the_IBM___33_P5 Card Reader and IBM 3525 Card Punch . 

To support DEB validity checking, an OPEN macro instruction must 
be issued for every data extent block (DEB) created. 

The standard form of the OPEN macro instruction is written as 
follows (the list and execute forms are shown following the 
description of the standard form): 


[svmbol3 

OPEN 

(deb address*[(options)3»•..) 



,[TYPE=J] 



t [M0DE=24|311 


deb address —A-Type Address or (2-12) 

The deb address operand(s) specifies the address of the 
data control block(s) for the data set(s) to be prepared 
for processing. 

op.- ti , pns 

The options operands shown in the following illustration 
indicate the volume positioning available based on the 
device type and access method being used. If option 1 is 
omitted, INPUT is assumed. If option 2 is omitted, DISP is 
assumed. Option 1 must be coded if option 2 is coded. 
Option 2 is ignored for SYSIN and SYSOUT data sets. 

Options 1 and 2 are ignored for BISAM and QISAM (in the 
scan mode), and the data control block indicates the 
operation. OUTPUT or OUTIN must be specified when creating 
a data set. 
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OPEN 


DEVICE TYPE 

Access 


Method 

Magnetic 

Tape 

Direct Access 

Other Types 


Option 1 

Option 2 

Option 1 

Option 2 

Option 1 Option 2 

QSAM 

[INPUT 3 

[,REREAD] 

[INPUT 3 

[.REREAD] 

[INPUT 3 — 


[EXTENDI 

[.LEAVE ] 

[EXTEND] 

[.LEAVE ] 

[EXTEND] 


[OUTPUT! 
[RDBACK3 

[.DISP ] 

[OUTPUT] 

[UPDAT] 

[.DISP ] 

[OUTPUT! 

BSAM 

[INPUT 3 

[.REREAD] 

[INPUT 3 

[9 REREAD] 

[INPUT 3 — 


[EXTEND] 

[.LEAVE ] 

[EXTEND] 

If LEAVE 3 

[OUTPUT] 


[OUTINX] 
[OUTPUT] 
[INOUT ] 
[OUTIN ] 
[RDBACK] 

[.DISP ] 

[OUTINX] 
[OUTPUT] 
[INOUT ] 
[OUTIN ] 
[UPDAT ] 

Ip JOSE 3 

[OUTPUT] 

[OUTPUT] 

QISAM 

Load Mode 

— 

— 

[OUTPUT] 

[EXTEND] 

— 

— — 

BPAM, 

BDAM 



[INPUT ] 
[OUTPUT] 
[UPDAT ] 




The following 

describes 

the options 

shown in the preceding 


illustration. 

All option operands 

are coded as shown. 


Option 1 Meaning 

EXTEND 1 The data set is treated as an OUTPUT data set, except 
that records will be added to the end of the data set 
regardless of what was specified on the DISP parameter 
of the DD statement. 

INPUT Input data set. 

INOUT 1 The data set is first used for input and, without 

reopening, is used as an output data set. The data 
set is processed as INPUT if it is a SYSIN data set or 
if LABEL=(,,,IN) is specified in the DD statement. 

OUTPUT Output data set (for BDAM, OUTPUT is equivalent to 
UPDAT) . 

OUTIN 1 The data set is first used for output and, without 

reopening, is used as an input data set. The data set 
is processed as OUTPUT if it is a SYSOUT data set or 
if LABEL=(,,,OUT) is specified in the DD statement. 

OUTINX 1 The data set is treated as an OUTIN data set, except 
that records will be added to the end of the data set 
regardless of what was specified on the DISP parameter 
of the DD statement. 

RDBACK Input data set, positioned to read backward. 

Note: Variable-length records cannot be read 

backward. 

UPDAT Data set to be updated in place or, for BDAM, blocks 
are to be updated or added. 

1 These options are not allowed for ISO/ANSI/FIPS Version 3 
tape processing. 
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Option 2 Meaning 

LEAVE Positions the current tape volume to the logical end 

of the data set when volume switching occurs. If 
processing was forward, the volume is positioned to 
the end of the data set; if processing was backward 
(RDBACK), the volume is positioned to the beginning of 
the data set. 

REREAD Positions the current tape volume to reprocess the 

data set when volume switching occurs. If processing 
was forward, the volume is positioned to the beginning 
of the data set; if processing was backward (RDBACK), 
the volume is positioned to the end of the data set. 

DISP Specifies that a tape volume is to be disposed of in 

the manner implied by the DD statement associated with 
the data set. Direct access volume positioning and 
disposition are not affected by this parameter of the 
OPEN macro instruction. There are several 
dispositions that can be specified in the DISP 
parameter of the DD statement; DISP can be PASS, 
DELETE, KEEP, CATLG, or UNCATLG. This option has 
significance at the time an end-of-volume condition is 
encountered only when DISP is PASS. The end-of-volume 
condition may result from the issuance of an FEOV 
macro instruction or may be the result of reaching the 
end of a volume. 

If DISP is PASS in the DD statement, the tape will be 
spaced forward to the end of the data set on the 
current volume. 

If any DISP option is coded in the DD statement, 
(except when DISP is PASS), the resultant action at 
the time an end~of-volume condition arises depends on 
(1) how many tape units are allocated to the data set 
and (2) how many volumes are specified for the data 
set in the DD statement. This is determined by the 
UNIT and VOLUME parameters of the DD statement 
associated with the data set. If the number of 
volumes is greater than the number of units allocated, 
the current volume will be rewound and unloaded. If 
the number of volumes is less than or equal to the 
number of units, the current volume is merely rewound. 

Note: When the DELETE option is specified, the system waits for 

the completion of the rewind operation before it continues 
processing subsequent reels of tape. 

The LEAVE and REREAD options are meaningless except for magnetic 
tape and CLOSE TYPE=T. Any other options specified for CLOSE 
TYPE=T besides LEAVE and REREAD will be treated as LEAVE during 
execution. 

TYPE=J 

You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a job file 
control block (JFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DD 
statement. This option, because it is used in conjunction 
with modifying a JFCB, should be used only by the system 
programmer or only under the system programmer's 
supervision. M0DE=31 is not allowed when TYPE=J is 
specified. 

When you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to discretion, but you must specify the device 
allocation and a ddname that corresponds to the associated 
data control block DCBDDNAM field. 

For more detailed information on using TYPE=J, see 
Sy s t e m -D at a^_d m_ i j)l_st r. a t j ojq . 



v. 
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MODE=24|31 

You can code OPEN M0DE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. 

M0DE=31 is not permitted if TYPE=J is specified. You must 
be operating in 31-bit addressing mode in order to use the 
31-bit addresses in the long form parameter list. The 
default, M0DE=24, will specify a standard form parameter 
list with 24-bit addresses. If TYPE=J is specified, you 
must use the standard form parameter list. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC190I message will be issued and the data set will hot be 
opened. The program will not be abnormally terminated 
unless an attempt is made to read to or write from the data 
set. 

Note: It is up to you to keep the mode specified in the 

MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 

Note: After the OPEN macro instruction has been executed, bit 3 

of the DCBOFLGS field in the data control block is set to 1 if 
the data control block has been opened successfully, but is set 
to 0 if the data control block has not been opened successfully. 

Note: To use the OPEN macro instruction supplied in the MVS/XA 

macro library on MVS/370, use the SPLEVEL macro instruction. 

You must use the SPLEVEL macro instruction to ensure that the 
MVS/XA version of the OPEN macro instruction executes 
successfully on MVS/370 DFP. For information on how to use the 
SPLEVEL macro, see System Macros and Facilities , Volume 2. 
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The following errors cause the results indicated: 


Error 

Result 

Attempting to open a data control 
block that is already open. 

No action. 

Attempting to open a data control 
block when the deb address 
operand does not specify the 
address of a data control block. 

Unpredictable. 

Attempting to open a DCB for a 
printer with the UCS feature and 
an error occurred when attempting 
to block or unblock data checks 
(specified by the presence or 
absence of 0PTCD=U in the DCB 
macro). 

Task abnormally 
terminated. 

Attempting to open a data control 
block when a corresponding DD 
statement has not been provided. 

A "DD STATEMENT MISSING" 
message is issued. An 
attempt to use the data 
set causes unpredictable 
results. 


The last of these errors can be detected by testing bit 3 of the 
DCBOFLGS field in the data control block. Bit 3 is set to 0 in 
the case of an error and can be tested by the sequence: 

TM DCBOFLGS,X*10* 

BZ ERRORRTN (Branch to user's error routine) 

Executing the two instructions shown above requires writing a 
DCBD macro instruction in the program, and a base register must 
be defined with a USING statement before the instructions are 
executed. 
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OPEN 


Q EE N— L I SLEQEM 


The list form of the OPEN macro instruction is used to construct 
a data management parameter list. Any number of operands (data 
control block addresses and associated options) can be 
specified. 

The list consists of a one-word entry for each DCB in the 
parameter list; the high-order byte is used for the options and 
the three low-order bytes are used for the DCB address. The end 
of the list is indicated by a 1 in the high-order bit of the 
last entry's option byte. The length of a list generated by a 
list form instruction must be equal to the maximum length list 
required by any execute form instruction that refers to the same 
list. A maximum length list can be constructed by one of two 
methods: 

• Code a list-form instruction with the maximum number of 
parameters that are required by an execute form instruction 
that refers to the list. 

• Code a maximum length list by using commas in a list-form 
instruction to acquire a list of the appropriate size. For 
example, coding OPEN (,,,,,,,,,),MF=L would provide a list 
of five fullwords (five deb addresses and five options). 

Entries at the end of the list that are not referenced by the 
execute-form instruction are assumed to have been filled in when 
the list was constructed or by a previous execute-form 
instruction. Before using the execute-form instruction, you may 
shorten the list by placing a 1 in the high-order bit of the 
last DCB entry to be processed. 

A zeroed work area on a fullword boundary is equivalent to OPEN 
(,(INPUT,DISP),.♦.),MF=L and can be used in place of a list-form 
instruction. The high-order bit of the last DCB entry must 
contain a 1 before this list can be used with the execute-form 
instruction. 

A parameter list constructed by an OPEN, list-form, macro 
instruction can be referred to by either an OPEN or CLOSE 
execute form instruction. 

The description of the standard form of the OPEN macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
which operands are completely optional and those required in at 
least one of the pair of list and execute forms. The format 
description below indicates the optional and required operands 
in the list form only. 

The list form of the OPEN macro is written; 


[gyigboU 

OPEN 

(Cdcb address]*C(options) 3t...) 



,MF=L 



[,TYPE=J] 



[,M0DE=24I31] 


deb address —A-Type Address 
MF=L —Coded as shown 

The MF=L operand specifies that the OPEN macro instruction 
is used to create a data management parameter list that is 
referenced by an execute form instruction. 

TYPE=J 

You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a job file 
control block (JFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DD 
statement. This option, because it is used in conjunction 
with modifying a JFCB, should be used only by the system 
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programmer or only under the system programmers 
supervision. M0DE=31 is not allowed when TYPE=J is 
specified. 

When you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to your discretion, but you must specify the 
device allocation and a ddname that corresponds to the 
associated data control block DCBDDNAM field. 

For more detailed information on using TYPE=J, see 
System-Data Administration . 

M0DE=24|31 

You can code OPEN M0DE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. 

M0DE=31 is not permitted if TYPE=J is specified. You must 
be operating in 31-bit addressing mode in order to use the 
31-bit addresses in the long form parameter list. The 
default, M0DE=24, will specify a standard form parameter 
list with 24-bit addresses. If TYPE=J is specified, you 
must use the standard form parameter list. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC190I message will be issued and the data set will not be 
opened. The program will not be abnormally terminated 
unless an attempt is made to read to or write from the data 
set. 

Note: It is up to you to keep the mode specified in the 

MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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OPEN—EXECUTE FORM 


A remote data management parameter list is used in, and can be 
modified by, the execute form of the OPEN macro instruction. 
The parameter list can be generated by the list form of either 
an OPEN or CLOSE macro instruction. 

The description of the standard form of the OPEN macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
which operands are totally optional and those required in at 
least one of the pair of list and execute forms. The format 
description below indicates the optional and required operands 
in the execute form only. 

The execute form of the OPEN macro is written: 


[symbol] 

OPEN 

[[[deb address)»C(options)]». 
,MF=(E,Cdata management list 

address 1(1)}) 



[ r TYPE=J] 

[,M0DE=£4I31] 


deb address —RX-Type Address or (2-12) 

This operand specifies that the execute form of the OPEN 
macro instruction is used, and an existing data management 
parameter list (created by a list-form instruction) is 
used. The MF= operand is coded as follows: 


E —Coded as shown 


datamanagement list address —RX-Type, (2-12), (1) 

TYPE=J 

You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a job file 
control block (JFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DD 
statement. This option, because it is used in conjunction 
with modifying a JFCB, should be used only by the system 
programmer or only under the system programmer's 
supervision. M0DE=31 is not allowed when TYPE=J is 
specified. 

When you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to your discretion, but you must specify the 
device allocation and a ddname that corresponds to the 
associated data control block DCBDDNAM field. 


For more detailed information on using TYPE=J, see 
Sj /st , e m -: P a ,.t a .A d M. n .isAr. ^ tjLpli. 

M0DE=24|31 

You can code OPEN M0DE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. 

M0DE=31 is not permitted if TYPE=J is specified. You must 
be operating in 31-bit addressing mode in order to use the 
31-bit addresses in the long form parameter list. The 
default, M0DE=24, will specify a standard form parameter 
list with 24-bit addresses. If TYPE=J is specified, you 
must use the standard form parameter list. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 


The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
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address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC190I message will be issued and the data set will not be 
opened. The program will not be abnormally terminated 
unless an attempt is made to read to or write from the data 
set. 

Note: It is up to you to keep the mode specified in the 

MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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PDAB—CONSTRUCT A PARALLEL DATA ACCESS BLOCK (QSAM) 

The PDAB macro instruction is used in conjunction with the GET 
(TYPE=P) macro instruction. It defines an area in the problem 
program where the open and close routines build and maintain a 
queue of DCB addresses for use by the get routine. 

The parallel data access block is constructed during the 
assembly of the problem program. The MAXDCB operand must be 
coded in the PDAB macro instruction, because it cannot be 
supplied from any other source. 

Certain data set characteristics prevent a DCB address from 
being available on the queue—see the description of QSAM 
parallel input processing in Data Administration Guide . 

The PDAB macro is written: 


[ symbol 3 


PDAB 


MAXDCB= dcb number 


MAXDCB=absexp (maximum value is 32767) 

specifies the maximum number of DCBs that you require in 
the queue for a GET request. 

Note: The number of bytes required for PDAB is equal to 

24+8n, where n is the value of the keyword, MAXDCB. 
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PDABD—PROVIDE SYMBOLIC REFERENCE TO A PARALLEL DATA ACCESS BLOCK (QSAM) 

The PDABD macro instruction is used to generate a dummy control 
section that provides symbolic names for the fields in one or 
more parallel data access blocks. The names, attributes, and 
descriptions of the fields appear in Appendix G, "PDABD Symbolic 
Field Names" on page 219. 

The name of the dummy control section generated by a PDABD macro 
instruction is IHAPDAB. The use of any of the symbolic names 
provided by the dummy section should be preceded by a USING 
instruction specifying IHAPDAB and a dummy section base register 
containing the address of the actual parallel data access block. 
The PDABD macro instruction should only be used once within any 
assembled module; however, the resulting symbolic names can be 
used for any number of parallel data access blocks by changing 
the address in the dummy section base register. The PDABD macro 
instruction can be coded at any point in a control section. If 
coded at any point other than at the end of a control section, 
the control section must be resumed by coding a CSECT 
instruction. 

The PDABD macro is written: 


b 


PDABD 


b 
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POINT—POSITION TO A RELATIVE BLOCK (BPAM AND BSAM—TAPE AND DIRECT ACCESS ONLY) 

The POINT macro starts the next READ or WRITE operation at the 
specified data set block on the current volume. Before you 
issue POINT macro, ensure that all input and output operations 
using the same data control block are tested for completion. If 
you are processing a data set that has been opened for UPDAT, 
you must issue a READ macro immediately after the POINT macro. 

If you are processing an output data set, you must issue a WRITE 
macro immediately after the POINT macro before you close the 
data set, unless you have already issued the CLOSE macro (with 
TYPE=T specified) before the POINT macro. 

Note: If you specify the TYPE=T option in the CLOSE macro and 

you do not issue a WRITE macro before you close the data set, 
use the end-of-data location that is determined by TCLOSE. 

The POINT macro is written: 


EsymbaH 

POINT 

deb address 



' f TYRE^f ABsTrIL> ] 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened data set that is to be 
positioned. 

block address —RX-Type Address, (2-12), or (0) 

The block address operand indicates which block in the data 
set is to be processed next. 

For an IBM 3480 Magnetic Tape subsystem, when TYPE=ABS is 
specified, the block address operand specifies the address 
of a fullword on a fullword boundary that contains the 
physical block identifier of the block in the data set that 
is to be processed next. This physical block identifier is 
provided as output from a prior execution of the NOTE 
macro. 

When TYPE=REL is specified or defaults, the block address 
operand specifies the address of a fullword on a fullword 
boundary that contains the relative address of the block in 
the data set that is to be processed next. The relative 
address is specified as follows: 

Magnetic Tape: The block number is in binary and is 
right-adjusted in the fullword with the high-order bits set 
to 0; add 1 if reading tape backward. Do not use the POINT 
macro instruction for tapes without standard labels when: 

• The data set is opened for RDBACK, or 

• The DD statement for the data set specifies DISP=M0D 

If 0PTCD=H is indicated in the data control block, the 
POINT macro instruction can be used to perform record 
positioning on DOS tapes that contain embedded checkpoint 
records. Any embedded checkpoint records that are 
encountered during the record positioning are bypassed and 
are not counted as blocks spaced over. 0PTCD=H must be 
specified in a job control language DD statement. Do not 
use the POINT macro instruction to backspace DOS 7-track 
tapes that are written in data convert mode and that 
contain embedded checkpoint records. 

Note: When an end-of-data condition is encountered on 

magnetic tape, you must not issue the POINT macro 
instruction unless you have first repositioned the tape for 
processing within your data set; otherwise, the POINT 
operation will be unsuccessful. (Issuing CLOSE TYPE=T is 
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an easy method to use to accomplish repositioning in your 
EODAD routine.) 

Direct Access Device: The fullword specified in the block 
address operand contains the relative track address (in the 
form TTRz)/ where: 

TT is a 2-byte relative track number. 

R is a 1-byte block (record) number on the track 

indicated by TT. 

z is a byte set to 0; it may also be set to 1 to retrieve 
the block following the TTR block. 

Note: The first block of a magnetic tape data set is 

always specified by the hexadecimal value 00000001. The 
first block of a direct access device data set can be 
specified by either hexadecimal 00000001 or 00000100 (see 
the preceding description of TTRz). 

TYPE={ABSIREL} 

indicates whether the block address operand is a physical 
block identifier or a relative address. 

ABS 

indicates that the block address operand specifies an 
address of a fullword on a fullword boundary 
containing a physical block identifier of the block in 
the data set that is to be processed next. 

EEL 

indicates that the block address operand specifies an 
address of a fullword on a fullword boundary 
containing the relative address of the block in the 
data set that is to be processed next. 

POINT cannot be used for SYSIN or SYSOUT data sets. 

If the volume cannot be positioned correctly or if the block 
identification is not of the correct format/ the error analysis 
(SYNAD) routine is given control when the next CHECK macro 
instruction is executed. 





COMPLETION CODES 

When the system returns control to your problem program and you 
have specified the ABS parameter/ the low-order byte of register 
15 contains a return code; the low-order byte of register 0 
contains a reason code: 

Return Reason 

Code (15) Code (0) Meaning 


00 

(X'00') 




Successful completion. 

04 

CX'04*) 




Device does not support block 
identifier. 

08 

(X* 08') 

01 

(X* 

01*) 

Incorrect parameter. 

08 

(X'08') 

02 

CX' 

02 1 ) 

Incorrect DCB or a DEBCHK error. 

08 

(X'08') 

03 

(X* 

03 1 ) 

Environmental error. 

08 

oo 

o 

X 

11 

(X* 

0B*) 

Unsuccessful call to ESTAE macro 

08 

(X 1 08') 

12 

(X' 

0C 1 ) 

Unsuccessful GETMAIN request. 

12 

(X'OC') 




Input/output error. 


V 
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CARD PUNCH» PRINT FEATURE) 

The PRTOV macro instruction is used to control the page format 
for an online printer when carriage control characters are not 
being used or to supplement the carriage control characters that 
are being used. 

The PRTOV macro instruction causes the system to test for an 
overflow condition on the specified channel (either channel 9 or 
channel 12) of the printer carriage control, and either skip the 
printer carriage to the line corresponding to channel 1, or 
transfer control to the exit address, if one is specified. 
Overflow is detected after printing the line that follows the 
line corresponding to channel 9 or channel 12. The PRTOV macro 
should be issued each time you want the system to test for an 
overflow condition. 

When the PRTOV macro instruction is used with a 3525 card punch, 
print feature, channel 9 or 12 can be tested. If an overflow 
condition occurs, control is passed to the overflow exit routine 
if the overflow exit address is coded, or a skip to channel 1 
(first print-line of the next card) occurs. 

When requesting overprinting (for example, to underscore a 
line), the PRTOV macro instruction is issued before the first 
PUT or WRITE macro instruction only. The PRTOV macro 
instruction should be issued only when the device type is an 
online printer. PRTOV cannot be used to request overprinting on 
the 3525. Overprinting' cannot be performed on the 3800. 

The PRTOV macro is written: 


Csvmbol3 

PRTOV 

deb address 


,£9112} 

[»overflow exit address] 


deb addres s—RX-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block opened for output to an online printer or 
3525 card punch with a print feature. 

9—Coded as shown 
12—Coded as shown 

These operands specify the channel that is to be tested by 
the PRTOV macro instruction. For an online printer, 9 and 
12 correspond to carriage control channels 9 and 12. For 
the 3525 card punch, 9 corresponds to print line number 17, 
and 12 corresponds to print line number 23. More detail 
about the card print-line format is included in OS and 

O S / V S . Pro.g c , am mi ng ,._ Support ,f o r_the IBM .. 3505 Card - R^ d en -ao d 

I.M^.52 5 _,C a r.d_Pu,n_c h » 

overflow exit address —RX-Type Address or (2-12) 

The overflow exit address operand specifies the address of 
the usei—supplied routine to be given control when an 
overflow condition is detected on the specified channel. 

If this operand is omitted, the printer carriage skips to 
the first line of the next page or the3525 skips to the 
first line of the next card before executing the next PUT 
or WRITE macro instruction. 
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When the overflow exit routine is given control, the contents of 
the registers are as follows: 

Register Contents 


0 and 1 
2-13 

14 

15 


The contents are destroyed. 

The same contents as before the macro instruction was 
executed. 

Return address. 

Overflow exit routine address. 
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EUT— MRrLEL_NEXT_LOGXCAL RECORD (QISAM) 

The PUT macro instruction causes the system to write a record 
into an indexed sequential data set. If the move mode is used/ 
the PUT macro instruction moves a logical record into an output 
buffer from which it is written. If locate mode is specified/ 
the address of the next available output buffer segment is 
available in register 1 after the PUT macro instruction is 
executed. The logical record can then be constructed in the 
buffer for output as the next record. The records are blocked 
by the system (if specified in the data control block) before 
being placed in the data set. The system uses the length 
specified in the record length (DCBLRECL) field of the data 
control block as the length of the record currently being 
written. When constructing blocked variable-length records in 
the locate mode/ the problem program may either specify the 
maximum record length once in the DCBLRECL field of the data 
control block or provide the actual record length in the 
DCBLRECL field before issuing each PUT macro instruction. Use 
of the maximum record length may result in more but shorter 
blocks/ because the system uses this length when it tests to see 
if the next record can be contained in the current block. 

The PUT macro instruction is used to create or extend an indexed 
sequential data set. To extend the data set/ the key of any 
added record must be higher than the highest key existing in the 
data set/ and the disposition parameter of the DD card must be 
specified as DISP=M0D. The new records are placed in the prime 
data space, starting in the first available space, until the 
original space allocation is exhausted. 

To create a data set using previously allocated space, the 
disposition parameter of the DD card must specify DISP=0LD. 

The PUT macro is written: 



PUT 


HUH 




deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened ISAM data set. 

area address —RX-Type Address, (2-12), or (0) 

The area address operand specifies the address of the area 
that contains the record to be written (move mode only). 
Either move or locate mode can be used with QISAM, but they 
must not be mixed within the specified data control block. 
The following describes operations for locate and move 
modes: 

Locate Mode: If locate mode is specified in the data 
control block, the area address operand must be omitted. 

The system returns the address of the next available buffer 
in register 1, this is the buffer into which the next 
record is placed. The record is not written until another 
PUT macro instruction is issued for the same data control 
block. The last record is written when a CLOSE macro 
instruction is issued to close the data set. 

Move Mode: If move mode has been specified in the data 
control block, the area address operand must specify the 
address in the problem program that contains the record to 
be written. The system moves the record from the area to 
an output buffer before control is returned. If the area 
address operand is omitted, the system assumes that 
register 0 contains the area address. 
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PUT ROUTINE EXIT 


The error analysis CSYNAD) routine is given control if the 
output operation could not be completed satisfactorily. The 
contents of the registers when the error analysis routine is 
given control are described in Appendix A/ "Status Information 
Following an Input/Output Operation” on page 192. 
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The PUT macro instruction causes the system to write a record in 
a sequential data set. Various modes are available and are 
specified in the DCB macro instruction. In the locate mode, the 
address of an area within an output buffer is returned in 
register 1 after the macro instruction is executed. The user 
should subsequently construct, at this address, the next 
sequential record or record segment. The move mode of the PUT 
macro instruction causes a logical record to be moved into an 
output buffer. In the data mode, which is available only for 
variable-length spanned records, the PUT macro instruction moves 
only the data portion of the record into one or more output 
buffers. 

The records are blocked by the control program (as specified in 
the data control block) before being placed in the data set. 

For undefined-length records, the DCBLRECL field determines the 
length of the record that is subsequently written. For 
variable-length records, the DCBLRECL field is used to locate a 
buffer segment of sufficient size (locate mode), but the length 
of the record actually constructed is verified before the record 
is written (the output block can be filled to the maximum if, 
before issuing the PUT macro, DCBLRECL is set equal to the 
record length). For variable-length spanned records, the system 
segments the record according to the record length, buffer 
length, and amount of unused space remaining in the output 
buffer. The smallest segment created will be 5 bytes, 4 for the 
segment descriptor word plus 1 byte of data. 

If the ISCII/ASCII translation routines are included when the 
operating system is generated, translation can be requested by 
coding LABEL=(,AL) or (,AUL) in the DD statement, or it can be 
requested by coding 0PTCD=Q in the DCB macro instruction or DCB 
subparameter of the DD statement. When translation is 
requested, all QSAM records whose record format (RECFM operand) 
is F, FB, D, DS, DB, DBS, or U are automatically translated from 
EBCDIC code to ISCII/ASCII code. For translation to occur 
correctly, all output data must be in EBCDIC code; any EBCDIC 
character that cannot be translated into an ISCII/ASCII 
character is replaced by a substitute character. 

The PUT macro is written: 


[symbol] 

PUT 

deb address 



[•area address] 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the data set opened for output. 

area address —RX-Type Address, (2-12), or (0) 

The area address operand specifies the address of an area 
that contains the record to be written (move or data mode). 
The move, locate, or data mode can be used with QSAM, but 
they must not be mixed within the specified data control 
block. If the area address operand is omitted in the move 
or data mode, the system assumes that register zero 
contains the area address. The following describes the 
operation of the three modes: 

Locate Mode: If locate mode is specified, the area address 
operand must be omitted. The system returns the address of 
the next available buffer in register 1; this is the buffer 
into which the next record is placed. 

When variable-length spanned records are processed without 
the extended logical record interface (XLRI), and a record 
area has been provided for a logical record interface (LRI) 
(BFTEK=A has been specified in the data control block or a 
BUILDRCD macro instruction has been issued), the address 
returned in register 1 points to an area large enough to 
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contain the maximum record size Cup to 32756 bytes). The 
system segments the record and writes all segments, 
providing proper control codes for each segment. If, for 
variable-length spanned records, an area has not been ; 

provided, the actual length remaining in the buffer will be 
returned in register 0. In this case, it is the user's 
responsibility to segment the records and process them in 
terms of record segments. ISO/ANSI/FIPS spanned records, 

RECFM=D$ or RECFM=DBS, may not be processed in segment 
mode. The record or segment is not written until another 
PUT macro instruction is issued for the same data control 
block. The last record is written when the CLOSE macro 
instruction is issued. 

When a PUT macro instruction is used in the locate mode, 
the address of the buffer for the first record or segment 
is obtained by issuing a PUT macro after open. QSAM 
returns the address in register 1. The user then moves 
data to this address. The buffer is not written to the 
data set until the next PUT macro is issued. If records 
are blocked, the data is not written to the data set until 
the PUT following the one that filled the buffer. Each PUT 
macro will return the address of the next buffer in 
register 1. After this address is given to the user, QSAM 
will always count this address as a valid record. The user 
should always place valid data at the address returned in 
register 1 before issuing another PUT or FEOV or CLOSE 
MACRO; otherwise, residual data at that location will be 
written to the data set. After an FEOV macro is issued, 

(for multivolume data sets), register 1 must be 
reinitialized with the first buffer address for the next 
volume by issuing a PUT macro after return from FEOV. 

Move Mode: If move mode has been specified in the data 
control block, the area address operand specifies the 
address of the area that contains the record to be written. 

The system moves the record to an output buffer before 
control is returned. 

Data Mode: If data mode is specified in the data control 
block (data mode can be specified for variable-length 
spanned records only), the area address operand specifies 
the address of an area in the problem program that contains 
the data portion of the record to be written. The system 
moves the data portion of the record to an output buffer 
before control is returned. The user must place the total 
data length in the DCBPRECL (not the DCBLRECL) field of the 
data control block before the PUT macro instruction is 
issued. 

Extended Logical Record Interface (XLRI): When the PUT 
macro is used with the extended logical record interface, 
the address returned in register 1 points to an area that 
is used to build a 4-byte logical record length field (RDW) 
followed by a complete logical record. The logical record 
length byte count occupies the three low-order bytes of the 
record length field and must include the length of the 
field. The high-order byte must be zero. The DCB LRECL 
value indicates the length of the longest logical record of 
the data set in 'K' (1024-byte) units. 


PUT ROUTINE EXIT 

If the output operation could not be completed satisfactorily, 
the error analysis (SYNAD) routine is given control after the 
next PUT instruction is issued. The contents of the registers 
when the error analysis routine is given control are described 
in Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. 
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The PUTX macro instruction causes the control program to return 
an updated record to a data set (QISAM and QSAM) or to write a 
record from an input data set into an output data set CQSAM 
only). There are two modes of the PUTX macro instruction. The 
output mode (QSAM only) allows writing a record from an input 
data set on a different output data set. The output data set 
may specify the spanning of variable-length records, but the 
input data set must not contain spanned records. 

The update mode returns an updated record to the data set from 
which it was read. The logical records are blocked by the 
control program, as specified in the data control block, before 
they are placed in the output data set. The control program 
uses the length specified in the DCBLRECL field as the length of 
the record currently being stored. Control is not returned to 
the user's program until the control program has processed the 
record. 

For SYSIN or SYSOUT data sets, the PUTX macro instruction can be 
used only in the output mode. 

The PUTX macro is written: 


[symbol! 

PUTX 

deb address 



C»input deb address] 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for a data set opened for output. 

input deb address —RX-Type Address, (2-12), or (0) 

The input deb address operand specifies the address of a 
data control block opened for input. The PUTX macro 
instruction can be used for the following modes: 

Output Mode: This mode is used with QSAM only. The input 
deb address operand specifies the address of the data 
control block opened for input. If this operand is 
omitted, the system assumes that register 0 contains the 
input deb address. 

Update Mode: The input deb address operand is omitted for 
update mode. 


PUTX ROUTINE EXIT 


The error analysis (SYNAD) routine is given control if the 
operation is not completed satisfactorily. The contents of the 
registers when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192. 
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READ—READ A_B LOCK _C BP AM1 

The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. Control 
may be returned to the problem program before the block is 
retrieved. The input operation must be tested for completion 
using a CHECK or NAIT macro instruction. A data event control 
block/ shown in Appendix A/ "Status Information Following an 
Input/Output Operation” on page 192/ is constructed as part of 
the macro expansion. 

The standard form of the READ macro instruction is written as 
follows Cthe list and execute forms are shown following the 
descriptions of the standard form): 


I s y m fa p .ll 


READ 


. de g_b... 0 .a, m ^ 

> Ay.E.e 
y deb address 


'S'} 


yl length I'S*J 
jt kqy ..,, address 1 'S' 10} 
» block address 
[ » next address ! 


deeb name—symbol 

The deeb name operand specifies the name assigned to the 
data event control block created as part of the macro 
expansion. 

type— CDICFIX3CR1RU3} 

{DKCFIX3CR|RU3} 

The type operand is coded in one of the combinations shown 
above to specify the type of read operation and the 
optional services performed by the system: 

DI 

specifies that the data and key/ if any/ are to be 
read from a specific device address. The device 
address/ which can be designated by any of the three 
addressing methods/ is supplied by the block address 
operand. 

DK 

specifies that the data (only) is to be read from a 
device address identified by a specific key. The key 
to be used as a search argument must be supplied in 
the area specified by the key address operand; the 
search for the key starts at the device address 
supplied in the area specified by the block address 
operand. The description of the DCB macro 
instruction/ LIMCT operand/ contains a description of 
the search. 

F 

requests that the system provide block position 
feedback into the area specified by the block address 
operand. This character can be coded as a suffix to 
DZ or DK as shown above. 

X 

requests exclusive control of the data block being 
read/ and that the system provide block position 
feedback into the area specified by the block address 
operand. The descriptions of the WRITE and RELEX 
macro instructions contain a description of releasing 
a data block that is under exclusive control. This 
character can be coded as a suffix to DI or DK as 
shown above. 
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R 

requests that the system provide next address feedback 
into the area specified by the next address operand. 
When R is coded, the feedback is the relative track 
address of the next data record. This character can 
be coded as a suffix to DI or DK, DIF* DIX, DKF, or 
DKX as shown above, but can be coded only for use with 
variable-length spanned records. 

RU 

requests that the system provide next address feedback 
into the area specified by the next address operand. 
When RU is coded, the feedback is the relative track 
address of the next capacity record (RO) or data 
record whichever occurs first. These characters can 
be coded as a suffix to DI, DK, DIF, DIX, DKF, or DKX, 
but it can be coded only for use with variable-length 
spanned records. 

deb address —A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block opened for the data set to be read. 

area address —A-Type Address, (2-12), or 'S' 

The area address operand specifies the address of the area 
in which the data block is to be placed. If 'S* is coded 
instead of an address, dynamic buffering is requested 
(dynamic buffering must also be specified in the MACRF 
operand of the DCB macro instruction). When dynamic 
buffering is used, the system acquires a buffer and places 
its address in the data event control block. 

length —symbol, decimal digit, absexp, (2-12), or f S* 

The length operand specifies the number of data bytes to be 
read up to a maximum of 32760. If 'S f is coded instead of 
a length, the number of bytes to be read is taken from the 
data control block. This operand is ignored if the records 
are not format-U. 

kev address —A-Tvoe Address, (2-12), 'S', or 0 

The key address operand specifies the address of the area 
for the key of the desired data block. If the search 
operation is made using a key, the area must contain the 
key. Otherwise, the key is read into the designated area. 
If the key is read and ’S' was coded for the area address, 
'S 1 can also be coded for the key address; the key and data 
are read sequentially into the buffer acquired by the 
system. If the key is not to be read, specify 0 instead of 
an address or *S f . 

block address —A-Type Address or (2-12) 

The block address operand specifies the address of the area 
containing the relative block address, relative track 
address, or actual device address of the data block to be 
retrieved. The device address of the data block retrieved 
is placed in this area if block position feedback is 
requested. The length of the area that contains the 
address depends on whether the feedback option (0PTCD=F) 
has been specified in the data control block and if the 
READ macro instruction requested feedback. 

If 0PTCD=F has been specified, feedback (if requested) is 
in the same form as originally presented by the READ macro 
instruction, and the field can be either 3 or 8 bytes long, 
depending on the type of addressing. 

If 0PTCD=F has not been specified, feedback (if requested) 
is in the form of an actual device address, and the field 
must be 8 bytes long. 
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next address —A-Type Address or (2-12) 

The next address operand specifies the address of the 
storage area in which the system places the relative 
address of the next record. The length operand must be 
specified as 'S'. When the next address operand is 
specified, an R or RU must be added to the type operand 
(for example, DIR or DIRU). The R indicates that the next 
address returned is the next data record. RU indicates 
that the next address returned is for the next data or 
capacity record, whichever occurs first. The next address 
operand can be coded only for use with variable-length 
spanned records. 
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READ—READ A BLOCK OF RECORDS (BISAM) 

The READ macro instruction causes an unblocked record, or a 
block containing a specified logical record, to be retrieved 
from a data set. The block is placed in a designated area of 
storage, and the address of the logical record is placed in the 
data event control block. The data event control block is 
constructed as part of the macro expansion and is described in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. 

Control may be returned to the problem program before the block 
is retrieved. The input operation must be tested for completion 
using a WAIT or CHECK macro instruction. 

The standard form of the READ macro instruction is written as 
follows for BISAM (the list and execute forms are shown 
following the descriptions of the standard form): 


[gymboj] 

READ 

decb name 
t type 

»dcb address 




f {area address 1 

I'S'} 



.{length MS'} 
,kev address 



decb name —symbol 

The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 

type —{KIKU3 

The type operand is coded as shown to specify the type of 
read operation: 

K 

specifies normal retrieval. 

KU 

specifies that the record retrieved is to be updated 
and returned to the data set; the system saves the 
device address to be returned. 

When an ISAM data set is being updated with a READ KU 
macro instruction and a WRITE K macro instruction, 
both the READ and WRITE macro instructions must 
reference the same data event control block. This 
update operation can be performed by using a list-form 
instruction to create the list (data event control 
block) and by using the execute form of the READ and 
WRITE macro instructions to reference the same list. 

deb address —A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block for the opened data set to be read. 

area address —A-Type Address, (2-12), or 'S* 

The area address operand specifies the address of the area 
in which the data block is placed. The first 16 bytes of 
this area are used by the system and do not contain 
information from the data block. The area address must 
specify a different area than the key address. Dynamic 
buffering is specified by coding 'S' instead of an address; 
the address of the acquired storage area is returned in the 
data event control block. Indexed sequential buffer and 
work area requirements are described in Data Administration 
Gu l-de. 
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length —symbol, decimal digit, absexp, (2-12), or , S* 

The length operand specifies the number of bytes to be read 
up to a maximum of 32760. If 'S' is coded instead of a 
length, the number of bytes to be read is taken from the 
count field of the record; for blocked records, l S f must be 
coded. 


ddress —A-Type Address or (2-12) 

The key address operand specifies the address of the area 
in the problem program containing the key of a logical 
record in the block that is to be retrieved. When the 
input operation is completed, the storage address of the 
logical record is placed in the data event control block. 
The key address must specify a different area than the area 
address. 
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JR i ADzrR EA BLA. gJ,O . C JL J BmL A ^ 1L3SMl 

The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. Control 
may be returned to the problem program before the block is 
retrieved. The input operation must be tested for completion 
using a CHECK macro instruction. A data event control block, 
shown in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192, is constructed as part of 
the macro expansion. 

If the OPEN macro instruction specifies UPDAT, both the READ and 
WRITE macro instructions must reference the same data event 
control block. (See the list form of the READ or WRITE macro 
instruction for a description of how to construct a data event 
control block; see the execute form of the READ or WRITE macro 
instruction for a description of how to modify an existing data 
event control block.) 

The standard form of the READ macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form instructions): 


CsYULboil 


READ 


■d e c.b.fi a .m.£ 

f iY- Pe , 

> dcb address 
t area^g.ddnes,s 
Cfle n gt h 1 f , S* 3 


decb name —symbol 

The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 

type — {SF1SB} 

The type operand is coded as shown to specify the type of 
read operation: 

SF 

specifies normal, sequential, forward retrieval. 

SB 

specifies a read-backward operation; this operand can 
be specified only for magnetic tape with format-F or 
format-U records. 

This operand is intended to be used when the data set 
is OPEN for RDBACK. Tape positioning, label 
processing, and volume mounting errors will occur 
during EOV and CLOSE if an OPEN option, other than 
RDBACK, is used. 

deb address —A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block for the opened data set to be read. 

area address —A-Type Address or (2-12) 

The area address operand specifies the address of the 
problem program area in which the record is placed. When a 
READ SB macro instruction is issued, the area address must 
be the address of the last byte of the area into which the 
record is read. If the data set contains keys, the key is 
read into the buffer followed by the data. 

length —symbol, decimal digit, absexp, (2-12), or , S I 

The length operand specifies the number of data bytes to be 
read, to a maximum of 32760. If the data is translated 
from ISCII/ASCII code to EBCDIC code, the maximum number of 
bytes that can be read is 2048. For format-U records, f S f 
or a valid length must be coded. The number of bytes to be 
read is taken from the data control block if , S f is coded 
instead of a number. (This operand is ignored for format-F 
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or format-V records.) For format-D records only, the 
length of the record just read is automatically inserted 
into the DCBLRECL field by the check routine if BUF0FF=(L) 
is not specified in the data control block. 
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READ—READ A BLOCK (OFFSET READ OF KEYED BDAM DATA SET USING BSAM) 

The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. The data 
set is a BDAM data set and its record format is unblocked 
variable-length spanned records. BFTEK=R must be specified in 
the data control block. Control may be returned to the problem 
program before the block is retrieved. The input operation must 
be tested for completion using a CHECK macro instruction. A 
data event control block, shown in Appendix A, "Status 
Information Following an Input/Output Operation" on page 192, is 
constructed as part of the macro expansion. 

The standard form of the READ macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


IgyrobpJ,.] 

READ 

decb name 



»SF 



,dcb address 



»area address 


decb name —symbol 

The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 


SF 

specifies normal, sequential, forward retrieval. 

deb address —A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block for the opened BDAM data set to be read. 

area address —A-Type Address or (2-12) 

The area address operand specifies the address of the area 
in which the record is placed. 

When a spanned BDAM data set is created with keys, only the 
first segment of a record has a key; successive segments do not. 
When a spanned record is retrieved by the READ macro 
instruction, the system places a segment in a designated area 
addressed by the area address operand. The problem program must 
assemble all the segments into a logical record. Because only 
the first segment has a key, the successive segments are read 
into the designated area offset by key length to ensure that the 
block-descriptor word and the segment-descriptor word are always 
in their same relative positions. 
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READ—LIST FORM 


The list form of the READ macro instruction is used to construct 
a data management parameter list in the form of a data event 
control block CDECB). For a description of the various fields 
of the DECB for each access method, see Appendix A, "Status 
Information Following an Input/Output Operation" on page 192. 

The description of the standard form of the READ macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method, and the meaning of f S* 
when coded for the area address, length, and key address 
operands. For each access method, f S' can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the list form only. 

The list form of the READ macro is written: 


[ symbo l] 


READ 


decb .jmm& 

> type 

t [dcb . addr . ^S ^3 
f [ area address l , S I 1 
* [lenaibl 's' ] 



f [ D, e x.t.. a d.dr-. Qs^ ] 

,MF=L 


decb.nam . s —symbol 

type —Code one of the types shown in the standard form 

deb address —A-Type Address 

area address —A-Type Address or f S f 

length —symbol, decimal digit, absexp, or l S l 

kev address —A-Type Address or , S I 

block address —A-Type Address 

next address —A-Type Address 

MF=L—Coded as shown 

The MF=L operand specifies that the READ macro instruction 
is used to create a data event control block that can be 
referenced by an execute-form instruction. 
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REAP—EXEQUTg. FORM 


A remote data management parameter list (data event control 
block) is used in, and can be modified by, the execute form of 
the READ macro instruction. The data event control block can be 
generated by the list form of either a READ or WRITE macro 
instruction. 

The description of the standard form of the READ macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of ’S 1 
when coded for the area address, length, and key address 
operands. For each access method, , S* can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the execute form only. 

The execute form of the READ macro is written: 


Esy mbol l 


READ 


. deeb.address 

fjyp.3. 

> [ deb address ] 

f C area addres s| 1 S 1 3 

> [J L^ ojai h l 'S' 3 

f [ kev address l 1 S' 3 
f [ bi_o_^_,addr.ess 3 
^ [n ex t- address 3 
y MF = E 


deeb address —RX-Type Address or (2-12) 

type —Code one of the types shown in the standard form 

deb address —RX-Type Address or (2-12) 

area address —RX-Type Address, (2-12), or i S* 

length —symbol, decimal digit, absexp, (2-12), or , S* 

key address —RX-Type Address, (2-12), or 'S 1 

block address —RX-Type Address, or (2-12) 

next address —RX-Type Address or (2-12) 

MF=E—Coded as shown 

The MF=E operand specifies that the execute form of the 
READ macro instruction is used, and that an existing data 
event control block (specified in the deeb address operand) 
is used by the access method. 
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RELEX—RELEASE EXCLUSIVE CONTROL [EDAM) 

The RELEX macro instruction causes release of a data block from 
exclusive control. The block must have been requested in an 
earlier READ macro instruction that specified either DIX or DKX. 

Note: A WRITE macro instruction that specifies either DIX or 

DKX can also be used to release exclusive control. 

The RELEX macro is written: 


[symbol] 

RELEX 

D 



»dcb address 
»block address 


D 

specifies direct access. 

deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for a BDAM data set opened for processing. 

The operand must specify the same data control block 
designated in the associated READ macro instruction. 

block address —RX-Type Address, (2-12), or (0) 

The block address operand specifies the address of the area 
containing the relative block address, relative track 
address, or actual device address of the data block being 
released. The operand must specify the same area 
designated in the block address operand of the associated 
READ macro instruction. 


COMPLETION CODES 


When the system returns control to the problem program, the 
low-order byte of register 15 contains one of the following 
return codes; the three high-order bytes of register 15 are set 
to 0 . 

Return 

Code (15) Meaning 


00 (X f 00 f ) Operation completed successfully. 

04 (X , 04 f ) The specified data block was not in the 
exclusive control list. 


08 (X'08 1 ) 


The relative track address, relative 
block address, or actual device address 
was not within the data set. 
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BJ ^ L SE = RE J a fMf^ Q9AM . JNPUT J. 

The RELSE macro instruction causes immediate release of the 
current input buffer. The next GET macro instruction retrieves 
the first record from the next input buffer. For 
variable-length spanned records (QSAM), the input data set is 
spaced to the next segment that starts a logical record in a 
subsequent block. Thus, one or more blocks of data or records 
may be skipped. The RELSE macro instruction is ignored if a 
buffer has just been completed or released, if the records are 
unblocked, or if issued for a SYSIN data set. 

The RELSE macro is written* 


[ symbol I 


RELSE 


deb address 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened input data set. 
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SETL—SET LOWER LIMIT OF SEQUENTIAL RETRIEVAL CQISAM-INP_UX1 


The SETL macro instruction causes the control program to start 
processing the next input request at the specified record or 
device address. Sequential retrieval of records using the GET 
macro instruction continues from that point until the end of the 
data set is encountered or a CLOSE or ESETL macro instruction is 
issued. An ESETL macro instruction must be issued between SETL 
macro instructions that specify the same data set. 

The SETL macro instruction can specify that retrieval is to 
start at the beginning of the data set, at a specific address on 
the device, at a specific record, or at the first record of a 
specific class of records. For additional information on SETL 
functions, see Data Administration Guide . 

The SETL macro is written: 


[ symbol ] 


SETL 


deb address 

{t K [ H 3 , lovier 1, 1 mj t , a ddr .^ s g,} 

C f KC r lower limit address ) 

C,KDCH3» 1ower 1imit address } 
{>KCDy lower limit address } 

C y I y 1ower limit address } 

{, ID > lQ we ,n..J u lm i ±_a d.d.r^.s^} 

C ? B J 
{y BD} 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block opened for the indexed sequential data set 
being processed. 


The following operands are coded as shown; they specify the 
starting point and type of retrieval: 


K 

specifies that the next input operation is to begin at the 
record containing the key specified in the lowei—limit 
address operand. 

KC 

specifies that the next input operation is to begin at the 
first record of the key class specified in the lowei—limit 
address operand. If the first record of the specified key 
class has been deleted, retrieval begins at the next 
nondeleted record regardless of key class. 

H 

used with either K or KD, specifies that, if the key in the 
lowei—limit address operand is not in the data set, 
retrieval begins at the next higher key. The character H 
cannot be coded with the key class operands (KC and KCD). 


specifies that the next input operation is to begin at the 
record containing the key specified in the lower-limit 
address operand, but only the data portion of the record is 
retrieved. This operand is valid only for unblocked 
records. 


KCD 

specifies that the next input operation is to begin at the 
first record of the key class specified in the lowei—limit 
address operand, but only the data portion of the record is 
retrieved. This operand is valid only for unblocked 
records. 


specifies that the next input operation is to begin with 
the record at the actual device address specified in the 
lowei—limit address operand. 
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ID 

specifies that the next input operation is to begin with 
the record at the actual device address specified in the 
lowei—limit address operand, but only the data portion of 
the record is retrieved. This operand is valid only for 
unblocked records. 

B 

specifies that the next input operation is to begin with 
the first record in the data set. 

BD 

specifies that the next input operation is to begin with 
the first record in the data set, but only the data portion 
is retrieved. This operand is valid only for unblocked 
records. 


S— RX-Type Address, (2-12), or (0) 

The lowei—limit address operand specifies the address of 
the area containing the key, key class, or actual device 
address that designates the starting point for the next 
input operation. If I or ID has been specified, this area 
must contain the actual device address (in the form 
MBBCCHHR) of a prime data record; the other types require 
that the key or key class be contained in this area. 


SETL EXIT 


The error analysis (SYNAD) routine is given control if the 
operation could not be completed successfully. The exception 
condition code and general registers are set as shown in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. If the SETL macro instruction is not 
reissued, retrieval starts at the beginning of the data set. 
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SETPRT—PRINTER SETUP (BSAM, QSAM, AND EXCP) 

For the IBM 3800 Printing Subsystem, the SETPRT macro 
instruction is used to initially set or dynamically change the 
printer control information. The following control information 
may be changed with the SETPRT macro: 

• Bursting of forms (BURST parameter) 

• Character arrangements to be used (CHARS parameter) 

• The number of copies (COPIES parameter) 

• The starting copy number (COPYNR parameter) 

• Vertical formatting of a page (FCB parameter) 

• Flashing of forms (FLASH parameter) 

• Initializing the printer control information (INIT 
parameter) 

• Modification of copy (MODIFY parameter) 

• Blocking or unblocking of data checks (OPTCD parameter) 

In addition to changing the control information, you can also do 
the following: 

• Create your own 3800 load modules in a library to replace 
the use of SYS1.IMAGELIB (LIBDCB parameter). 

• SETPRT error messages that are sent to the printer can also 
be passed back to the invoking program (MSGAREA parameter). 

• Print or suppress error messages on the printer (PRTMSG 
parameter). 

• Control the scheduling of SYSOUT segment printing (DISP 
parameter). 

To use all-points addressability when operating the 3800 Model 
3, PSF libraries (for example, SYS1.FONTLIB, SYS1.FDEFLIB, 

SYS1.PDEFLIB) will be used instead of SYS1.IMAGELIB. As an 
alternative, the library with the LIBDCB parameter may be used. 

For additional information on how to use the SETPRT macro 
instruction with the 3800 Model 3, see IBM 3800 Printing 
Subsystem Models 3 and 8 Programmer’s Guide . 

For printers other than the 3800 Printing Subsystem, the SETPRT 
macro instruction is used to control the following: 

• Selection and verification of UCS and FCB images (UCS and 
FCB parameters) 

• Blocking or unblocking of data checks (OPTCD parameter) 

• Printing lowercase EBCDIC characters in uppercase (OPTCD and 
UCS parameters) 

For printers that have a universal character set (UCS) buffer or 
a forms control buffer (FCB), the SETPRT macro instruction is 
used to fetch UCS and FCB images from the image library 
(SYS1.IMAGELIB) and load them into their respective buffers. 

Note that FCB images for the 3203/3211 and 3800 are not 
compatible. The universal character sets for the 1403/3203 and 
the character arrangement table modules for the 3800* are also 
not compatible. 

IBM-supplied UCS images, FCB images, and character arrangement 
table modules are included in SYS1.IMAGELIB at system generation 
time. For impact printers, usei—defined character sets and 
forms control images can be added to SYS1.IMAGELIB as described 
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in System-Data Administration . For the 3800, usei—defined 
character arrangement table modules, copy modification modules, 
FCB modules, and graphic character modification modules (that 
modify the character set) and library character sets can be 
added to SYS1.IMAGELIB as described in Utilities . The EXLST 
parameter of the DCB macro instruction can be used to specify 
the address of an FCB module in storage. 

For the 1403 and 3211, if the specified UCS or FCB image cannot 
be found in SYS1.IMAGELIB or the DCB exit list, the system 
operator is asked to specify a replacement name and can 
therefore override an error made by the program. For the 3800, 
the SETPRT routines never ask the operator to replace or 
respecify a parameter from the SETPRT macro, and SETPRT 
processing is terminated. 

When BSAM is being used, all write operations must be checked 
for completion before the SETPRT macro instruction is issued; 
any incomplete write operations are purged. Issuing the SETPRT 
macro instruction for a device other than an on-line UCS printer 
or the 3800 Printing Subsystem results in an error return code. 

The standard form of the SETPRT macro instruction is written as 
follows (the list and execute forms are shown following the 
standard form): 


C Sy mb ol 3 


SETPRT 


dcbaddr 

[,BURST={N|Y}3 

[f CHARS={name IA( address )|R( register )>1 
{({name IA( address ) | 

R( register )!> , ♦ ♦. )J 3 
[ > COPIES=numbe_r 3 
[,C0PYNR= number 3 

i ,DISP=C SCHEDULE|NOSCHEDULE| EXTERN AL! 

C, FCB={ imageid I A( address ) I RC register )!> 

{({ imageid lA( address )| 
RC register D,£VlAI} )}3 
[ y FLASH={najne} 

{(C name 3 1 count )}3 
C,INIT=CN|Y}3 
[> LIBDCB= dcbaddress 3 

i t MODIFY={{nameIA( address )|R( register )1 
{(I name IA( address ) | 

RC register ,trc)T3 
C,MSGAREA= address 3 
C,0PTCD={B|U} 

{(CB|U},{F|U})}3 
C,PRTMSG=CN|Y3 
[, REXMIT={fjl YJ 3 
[,UCS=Ccsc> 

£(csc,CF|F,V|V})}3 


dcbaddr —A“Type Address or (2-12) 

The dcbaddr operand specifies the address of the data 
control block for the data set to be printed; the data set 
must be opened for output before the SETPRT macro 
instruction is issued. 

BURST=CMIYJ 

The BURST operand specifies whether the paper output is to 
be burst. BURST=Y indicates that the printed output is to 
be burst into separate sheets and stacked. BURST=N 
indicates that the printed output is to go into the 
continuous forms stacker. If BURST is not specified, the 
SETPRT routine assumes BURST=N. If bursting is requested, 
the printed output is threaded into the burstei—trimmei— 
stacker. Otherwise, the printed output is threaded into the 
continuous forms stacker. The operand causes a message to 
be printed at the system console telling the operator to 
thread the paper again if needed. This operand is valid 
for the 3800 printer only. 
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CHARS=C name IAC address IRC register )! 

IC{ name 1A C address )IRC register )!»... ) J 
The CHARS operand specifies one to four character 
arrangement tables to be used when printing a data set. 

This operand is valid for the 3800 printer only. 

mm. 

is the last four characters of the 8-byte member name 
for a charecter arrangement table module. For 
information on the modules available, see IBM 3800 
Printing Subsystem Programmer's Guide . 

AC addres s) 

specifies an in-storage address of the usei—provided 
character arrangement table module. For information 
on the format of the module, see Utilities . 

Re register ) 

specifies the register that contains an in-storage 
address of the usei—provided character arrangement 
table module. For information on the format of the 
module, see Utilities . 

COPIES= number 

specifies the total number of copies of each page of the 
data set that is to be printed (from 1 to 255) before going 
to the next page. If the COPIES operand is omitted, one 
copy of each page is printed. This operand is valid for 
the 3800 printer only. 

DISP={SCHEDULE|NOSCHEDULE| EXTERNAL ! 

DISP allows you to control how JES disposes of the data 
that is created before the SETPRT request. This parameter 
is valid only for SYSOUT data sets and is ignored for the 
direct user who issues SETPRT. You may abbreviate the 
parameters to S, N, and E, respectively. This operand is 
valid for the 3800 printer only. 

SCHEDULE 

specifies that JES is to schedule the previous data 
for printing immediately. 

NOSCHEDULE 

specifies that JES is to separate the data into a 
separate JES data set and to schedule the previous 
data set for printing after the job terminates. 

EXTER NAL 

specifies that the schedule of the data set for 
printing is determined by the JCL parameter 
FREE=CLOSE. FREE=CLOSE is the same as specifying 
DISP = SCHEDULE. The absence of FREE=CLOSE in the JCL 
is the same as coding DISP=NOSCHEDULE on the SETPRT 
macro. EXTERNAL is the default. 

FCB={ lmageid IACa ddress )I Re register )! 

{ C M mageid I AC address ) IRC register )!»{VIA! )} 

The FCB operand specifies that the forms control buffer 
CFCB) is to be selected from the image library. When the 
FCB operand is specified, the OPTCD operand can also be 
specified. The possible specifications ares 

image, ! d 

specifies the forms control image to be loaded. A 
forms control image is identified by a 1- to 
4-character name. IBM-supplied 3211 format images are 
identified by imageid value of STD1 and STD2; 
user-designed forms control images are defined by the 
installation. For descriptions of the standard forms 
control images for the 3203 and 3211, see System—Data 
Administration . For more information about 3800 FCB 
modules, see Utilities . 
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A (add res s) 

The address subparameter specifies an in-storage 
address of the usei—supplied forms control buffer 
module to be used. (For information on the format of 
the module, see Utilities .) This subparameter is 
valid for the 3800 Model 1 printer only. 

Re register ) 

The register subparameter specifies the register that 
contains an in-storage address of the usei—provided 
forms control buffer module to be used when printing a 
data set. (For information on the format of the 
module, see Utilities .) This subparameter is valid 
for the 3800 Model 1 printer only. 

V or VERIFY 

requests that the forms control image be displayed on 
the printer for visual verification. This operand 
allows forms verification and alignment using the WTOR 
macro instruction. 

A or ALIGN 

allows forms alignment using the WTOR macro 
instruction. This subparameter will be ignored if 
specified for the 3800 printer. 

FLASH={name} 

{l( name ), count D 

The FLASH operand identifies the forms overlay frame to be 
used. Unless REXMIT=Y is coded and the forms overlay frame 
is still in use from the previous SETPRT macro issuance, a 
message tells the operator to insert this forms overlay 
frame into the printer. This operand also enables you to 
specify the number of copies on which the overlay is to be 
printed (flashed). If this operand is omitted, flashing 
ceases. This operand is valid for the 3800 printer only. 

rm m a 

is the 1- to 4-character name of the forms overlay 
frame. 


. coun t 

indicates the total number (0 to 255) of copies of 
each page of the data set on which the overlay will be 
printed, beginning with the first copy. The number of 
copies printed will not be greater than the number of 
copies specified by the COPIES operand. No copies 
will be flashed if the count of zero is specified. If 
a nonzero count is specified and the name of the forms 
overlay frame is omitted, the operator will not be 
requested to insert a frame. Whatever frame is 
inserted will be used. 


INIT=CNIY3 

INIT=Y will initialize the control information in the 3800 
printer with a folded character arrangement table, the 
10-pitch Gothic character set (12 pitch for the 3800 Model 
3), and a six lines per inch FCB corresponding to the forms 
size in the printer. COPIES and COPYNR will be initialized 
to 1, FLASH and MODIFY will be initialized to none, and 
BURST will be initialized to N (continuous forms). For 
INIT=N, all control information for the 3800 printer will 
remain unchanged. Any parameters included on the same 
macro statement as the INIT operand will be processed after 
printer initialization has been completed. This operand is 
valid for the 3800 printer only. 

LIBDCB= dcbaddress —A-Type Address or (2-12) 

debaddress is the address of an authorized user library DCB 
that has been opened, and that you want to use instead of 
SYS1.IMAGELIB. If LIBDCB is not specified, SYS1.IMAGELIB 
is used. This operand is valid with 3800 Model 1 only. 
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Note: This is for the user with direct control of the 3800 

Model 1. 

MODIFY={ name I A( address ) | RC register )!> 

£ t{ name IA( address )|R( register » trc 
The MODIFY operand identifies the copy modification module 
and an associated character arrangement table module to be 
used when modifying the data to be printed. This operand 
is valid for the 3800 Model 1 printer only. 

name 

A 1- to 4-character name of the copy modification 
module stored in SYS1.IMAGELIB. These one to four 
characters are the last characters of the 8-byte 
member name of a copy modification module in 
SYS1.IMAGELIB. 

A( address ) 

The address subparameter specifies an in-storage 
address of the user-supplied copy modification module. 
This subparameter is valid for the 3800 Model 1 
printer only. For information on the format of the 
module, see U±ili±±es. 


The register subparameter specifies a register that 
contains an in-storage address of the usei—provided 
copy modification module. This subparameter is valid 
for the 3800 Model 1 printer only. For information on 
the format of the module, see Utilities . 


specifies the table reference character used to select 
one of the character arrangement table modules to be 
used for the copy modification text. The values of 0, 
1, 2, and 3 correspond to the order in which the 
module names have been specified in the CHARS operand. 
If trc is not included, the first character 
arrangement table module (0) is assumed. 


MSGAREA=address—A-Type Address or (2-12) 

address is the address of the message feedback area. This 
area is used to transfer message text between the SETPRT 
macro and the caller. You must allow at least 80 bytes for 
the message text plus 10 bytes for prefix information or a 
total length of at least 95 bytes. The message is 
truncated if it does not fit into the area. This operand 
is valid with 3800 only. The following shows the layout of 
the message area: 


bytes 0-1: 
bytes 2-5: 
bytes 6-7 : 
bytes 8-9: 
bytes 10-variable: 


total length 
reserved 
text length 
reserved 
message text 


OPTCD={B|UJ 

U{B|U},{F|U})} 

The OPTCD operand specifies whether printer data checks are 
blocked or unblocked and if the printer is to operate in 
fold or normal mode. The possible specifications are: 


B 

specifies that printer data checks are blocked; this 
option updates the DCBOPTCD field of the data control 
block. 

U 

specifies that printer data checks are unblocked; this 
option updates the DCBOPTCD field of the data control 
block. 
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F or FOLD 

specifies that printing is in fold mode. This 
subparameter is ignored if specified for the 1403 or 
3800 printer. For 1403 fold mode/ use fold option 
under the UCS operand. 

U or UNFOLD 

specifies that printing is in normal mode; this 
operand causes fold mode to revert to normal mode. 

This subparameter will be ignored if specified for the 
1403 or 3800 printer. 

PRTMSG=£N|YJ 

PRTMSG allows printer error messages to be printed for the 
programmer on the 3800. This operand is valid with 3800 
only. 

N 

specifies not to print error messages on the 3800. 

1 

specifies to print error messages on the 3800. Y is 
the default. 

REXMIT={NIY3 

The specification of REXMIT=Y allows modification of the 
starting copy number (COPYNR), the number of copies of the 
pages in a data set to be printed (COPIES), the forms 
overlay frame to be used (FLASH), and the number of copies 
to be printed (FLASH) without changing the other control 
information already set up in the printer. The SETPRT SVC 
will ignore all other parameters in the parameter list. 

UCS=£csc} 

C(esc,CF|F,V|V})} 

The UCS operand specifies that the UCS buffer is to be 
loaded from the image library. When the UCS operand is 
specified, the FCB and OPTCD operands can also be 
specified. This operand will be ignored if specified for 
the 3800 printer. The possible specifications are: 

esc (character set code) 

The esc operand specifies the character set selected. 

A character set is identified by a 1- to 4-character 
code. Codes for standard IBM character sets are as 
follows: 

1403 or 3203 Printer: AN, HN, PCAN, PCHN, PN, QN, QNC, 
RN, SN, TN, XN, and YN 

3211 Printer: All, HU, Gil, Pll, and Til 

For descriptions of the standard IBM character sets, 
see System Generation ; codes for usei—designed 
character sets are defined by the installation. For 
information on adding usei—defined entries to an image 
table, see S ,y.s t . e .mz, Da fa.A dm I n i s tna t lSLQ * 

F or FOLD 

specifies that the character set image selected is to 
be in fold mode. The fold mode translates the EBCDIC 
code for lowercase characters to the EBCDIC code for 
the corresponding uppercase characters. 

V or VERIFY 

requests that the character set image be displayed on 
the printer for visual verification. 
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RETURN CODES 


After the SETPRT macro instruction is executed, a return code is 
placed in register 15, and control is returned to the 
instruction following the SETPRT macro instruction. The 
illustration below shows how the four bytes of register 15 are 
used for a specific printer. 


Byte 

0 

1 

2 

3 



3800 Code 




Unused 

Other than 
FCB 

FCB Code 

UCS Code 


Bit 0 78 15 16 23 24 31 


The return codes in the figures that follow are in hexadecimal. 

• Return codes 0 through 14 apply to a specific printer. 

• Return codes 18 through 24 apply to all printers. 

• Return codes 28 through 50 apply to the 3800 printer only. 

Figure 1 shows the hexadecimal return codes 00 through 14 for 
specific printers. An 'XX' in the columns labeled *3800 Code 
Other than FCB 1 or 1 FCB Code, 1 means that a nonzero code may be 
in that byte. 


3800 Code 
Other than 
FCB 

(Byte 1) 

FCB Code 
(Byte 2) 

UCS Code 
(Byte 3) 

Meaning 

00 

00 

00 

Successful completion. 

00 

XX 

04 

The operator canceled the UCS request for the 
following reason: 

• The UCS image could not be found in 

SYS1.IMAGELIB. 

00 

04 

XX 

For non-3800 printers, the operator canceled 
the FCB load operation for one of the 
following reasons: 

• The form could not be aligned to match 
the buffer. 

• The FCB module could not be found in 

SYS1.IMAGELIB or the user*s DCB exit 
list. 

For a 3800, the specified FCB module could 
not be found in SYS1.IMAGELIB, a user 
library, or the DCB exit list, and SETPRT 
processing was terminated. 


Figure 1 (Part 1 of 3). SETPRT Return Codes for Specific Printers 
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3800 Code 
Other than 
FCB 

(Byte 1) 

FCB Code 
(Byte 2) 

UCS Code 
(Byte 3) 

Meaning 

04 

00 

00 

The 3800 SETPRT processing was suspended for 

one of the following reasons: 

• A character arrangement table module 
could not be found in SYS1.IMAGELIB or a 
user library. 

• A copy modification module could not be 
found in SYS1.IMAGELIB or a user library. 

• A graphic character modification module 
(required by a character arrangement 
table module) could not be found in 

SYS1.IMAGELIB or a user library. 

• A library character set module could not 
be found in SYS1.IMAGELIB or a user 
library. 

Register 0 contains a reason code identifying 

which of the above conditions occurred. 

For an explanation, see Figure 3 on page 157. 

00 

XX 

08 

A permanent I/O error was detected when the 

BLDL macro instruction was issued to locate a 
UCS image in SYS1.IMAGELIB. 

00 

08 

XX 

A permanent I/O error was detected when the 

BLDL macro instruction was issued to locate 
an FCB module in SYS1.IMAGELIB or a user 
library. 

08 

00 

00 

A permanent I/O error was detected when the 

BLDL macro instruction was issued to locate 
one of the following modules in SYS1.IMAGELIB 
or a user library. 

• A character arrangement table module 

• A copy modification module 

• A graphic character modification module 

• A library character set module 

Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation, see Figure 3 on page 157. 

00 

XX 

OC 

A permanent I/O error was detected while 
loading the printer’s UCS buffer. 

00 

OC 

XX 

A permanent I/O error was detected during 
forms positioning or while loading the 
printer’s FCB buffer. 

Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation, see Figure 3 on page 157. 


Figure 1 (Part 2 of 3). SETPRT Return Codes for Specific Printers 
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3800 Code 
Other than 
FCB 

(Byte 1) 

FCB code 
(Byte 2) 

UCS Code 
(Byte 3) 

Meaning 

oc 

00 

00 

A permanent I/O error was detected while 
loading one of the following: 

• Character arrangement table 

• Copy modification record 

• Starting copy number 

• Graphic character modification record 

• Forms overlay sequence control record 
(copy counts and flash counts) 

• Writable character generation module 
(WCGM) 

• Library character set (3800 only) 

Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation, see Figure 3 on page 157. 

00 

XX 

10 

A permanent I/O error was detected when an 
attempt was made to display the character set 
image on the printer for visual verification. 

00 

10 

XX 

A permanent I/O error was detected when an 
attempt was made to display the forms control 
image on the printer for visual verification. 

00 

XX 

14 

The operator canceled the UCS request because 
an improper character set image was displayed 
for visual verification. 

00 

14 

XX 

The operator canceled the FCB request because 
an improper forms control image was displayed 
for visual verification. 


Figure 1 (Part 3 of 3). SETPRT Return Codes for Specific Printers 


The illustration below shows how the four bytes of register 15 
are used for all printers. 


Byte 0 12 3 


Unused 

Unused 

Unused 

General 




Code 


Bit 0 78 15 16 23 24 31 


Figure 2 shows the hexadecimal return codes 18 through 24 for 
all printers. 
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Return 

Code 
(Byte 3) 

Meaning 

18 

No operation was performed for one of the 
following reasons: 

• The data control block was not open 

• The data control block was not valid for a 

sequential data set. 

• The SETPRT parameter list was not valid 

• The output device was not a UCS or 3800 

printer 

1C 

No operation was performed because an 
uncorrectable error occurred in a previously 
initiated output operation. The error analysis 
CSYNAD) routine is entered when the next PUT or 
CHECK macro instruction is issued. 

No operation was performed because an 
uncorrectable error occurred when the block data 
check or the reset block data check command was 
issued by SETPRT. 

For a 3800, message IEC173I will indicate which 
of the above errors has occurred. 

Register 0 contains a reason code identifying 
whether or not data was lost. For an 
explanation, see Figure 4 on page 157. 

20 

Not enough space has been provided for the 

SYS1.IMAGELIB or a user library control blocks. 

24 

SYSl.IMAGELIB (or, for the 3800, a user library) 
cannot be opened to load the specified module. 

28 

The operator canceled the forms overlay request. 

2C 

The operator canceled the paper threading 
request. 

30 

There are more writable character generation 
modules (WCGMs) requested than there are 
writable buffers installed on the printer. 

34 

There was an invalid table reference character 
for copy modification. 

38 

An error occurred when attempting to execute the 
initialize printer command. 

3C 

Bursting was requested but the 

Burster-Trimmei—Stacker feature is not installed 
on the printer. 

40 

A permanent I/O error occurred while executing a 
sense, final select character arrangement table 
command, or display status code. 

44 

The translate table character arrangement table 
entry references a character set that is not in 
the image library. 


Figure 2 (Part 1 of 2). SETPRT Return Codes for All Printers 
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Return 

Code 
(Byte 3) 

Meaning 

48 

Data was lost because of one of the following 
(3800 only): 


• 

3800 system restart after a paper jam 


• 

Cancel key 


• 

Lost resources after paper jam 

4C 

A load check was detected while loading one of 
the following (3800 only): 


• 

Forms control buffer (FCB) 


• 

Character arrangement table (CAT) 


• 

Graphic arrangement table (GCM) 


• 

Copy modification record 


• 

Writable character generation module (WCGM) 


• 

Library character set (LCS) 


Register 0 contains a reason code identifying 
which of the above conditions occurred. 


For 

an explanation, see Figure 3 on page 157. 

50 

When a SETPRT was issued to a SYSOUT data set, 
there was a failure in one of the following 
(3800 only): 


• 

The subsystem interface (SSI) for OPEN or 
CLOSE 


• 

Data set segmentation 


• 

Queue manager issuing I/O to read the JFCB 
and/or the JFCBE 


• 

ENQ failure 


• 

More than one DCB is open for the SYSOUT 
data set 


Figure 2 (Part 2 of 2), SETPRT Return Codes for All Printers 
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IBM 3800 MODELS 1 AND 3 

These reason codes, returned in register 0, for the 3800 Models 
1 and 3 printers are in addition to completion codes 04, 08, 0C, 
and 4C returned in register 15. 

The following illustration shows the contents of register 0, 
which includes the GCM ID, the CAT ID, and the reason code. 


Byte 0 12 3 


Unused 

GCM ID 

CAT ID 

Reason 




Code 


Bit 0 78 15 16 23 24 31 


Figure 3 shows the hexadecimal reason codes for the IBM 3800 
Model 1 and the IBM 3800 Model 3 in compatibility mode. 


GCM ID 
(Byte 1) 

CAT ID 
(Byte 2) 

Reason Code 
(Byte 3) 

Meaning 

00 

01-04 

04 

Character arrangement 
table module/record 

00 

00 

08 

Copy modification 
module/record 

00 

00 

OC 

Starting copy number 

01-04 

01-04 

10 

Graphic character 

modification 

module/record 

00 

00 

14 

Forms overlay sequence 
control record 

00 

00 

18 

Library character set 

00 

00 

1C 

Writable character 
generation module (WCGM) 

00 

00 

20 

Forms control buffer 
module 


Figure 3. Reason Codes for IBM 3800 Models 1 and 3 Printers 
CGCM ID and CAT ID) 


Figure 4 shows the reason codes in addition to return code 1C 
returned in register 15. The reason code is placed in byte 3 of 
register 0. Bytes 0 through 2 are reserved. 


Reason Code 
(Byte 3) 

Meaning 

00 

Indicates no data lost. 

04 

Indicates data has been lost. 


Figure 4. Reason Codes for All Printers (Bytes 0 through 2 
Reserved) 
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Figure 5 on page 158 shows the reason codes in addition to 
return code 48 returned in register 15. The reason code is 
placed in byte 3 of register 0. Bytes 0 through 2 are reserved. 


Reason Code 
(Byte 3) 

Meaning j 

04 

A paper jam caused a restart. A possible lost 
data condition was detected. 

08 

The cancel key was pressed. 

OC 

Resources were lost after a paper jam. 


Figure 5. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(Bytes 0 through 2 Reserved) 


Figure 6 shows the reason codes in addition to return code 50 
returned in register 15. The reason code is placed in byte 3 of 
register 0. Bytes 0 through 2 are reserved. 


Reason Code 
(Byte 3) 

Meaning 

04 j 

An invalid SETPRT request for a SYSOUT data 
segment was specified. An in-storage address 
was used for a copymod, character arrangement 
table, FCB, or user library DCB. Only 3800 
load module IDs in SYS1.IMAGELIB are allowed 
for SYSOUT setup for 3800. 


If Direct Attach (a directly allocated 3800 

Model 3 or Model 8 printer) is active, data 
management treats the device specified by the 
UNIT parameter as a SYSOUT data set. 

08 

During SETPRT processing for a SYSOUT data 
segment, an error was detected while 
attempting to read a JFCB or JFCBE control 
block from SNA 

OC 

During SETPRT processing for a SYSOUT data 
segment, an error was detected while invoking 
the CLOSE subsystem interface (SSI) for the 
previous data segment 

10 

During SETPRT processing for a SYSOUT data 
segment, an error was detected while invoking 
the OPEN subsystem interface (SSI) for the new 
data segment being created 

14 

During SETPRT processing for a SYSOUT data 
segment, an error was detected while the 
scheduler spool file allocation routine was 
segmenting the data set 

18 

An ENQ macro failed. The ENQ was issued by 
SETPRT processing. 

1C 

More than one DCB is open for the SYSOUT data 
set. 


Figure 6. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(Bytes 0 through 2 Reserved) 
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SIIEBI= JJS U EO R M 


The list form of the SETPRT macro instruction is used to 
construct a data management parameter list. 

The description of the standard form of the SETPRT macro 
instruction provides the explanation of the function of each 
operand. The format description below indicates the optional 
and required operands for the list form only. The dcbaddr 
parameter must appear in the list or execute form of the SETPRT 
macro. 

The list form of the SETPRT macro instruction is written as 
follows i 


[ symbol 3 


SETPRT 


[ dcbaddr ] 

[,BURST={N|Y}3 
[ r CHARS=f[ name ) 

{X name , 

C,CQPIE$= number ] 

[,COPYNR= numbe r] 

E,DISP=[SCHEDULElNOSCHEDULEI EXTERNAL ] 
£,FCB={ image id} 

{( imageid , £V|A})}3 
[ t FLASH={name} 

{ ([n ame 3, count )3 3 
C,INIT=£N|Y}3 
[ t LIBDCB = dcbaddress 3 
[ y MODIFY = { rvamej 

{ C n ame , trc )33 
[,MSGAREA= address 3 
[ t OPTCD={B|U} 

C(CB|UJ,CFIU})}3 
[ > PRTMSG=IN|Y3 
[,REXMIT={N|Y}3 
[,UCS={csj£} 

{C£S£,CF|F,VIVJ)J3 

f MF=L 


dcbaddr —A-Type Address 
BURST=CN|Y) 

is coded as shown in the standard form of the macro 
instruction. 

CHARS=t name > 

C( name ?... 

is coded as shown in the standard form of the macro 
instruction, except for the A [ address ) and R( register 3 
parameters, which cannot be specified. 

COPIES= number 

is coded as shown in the standard form of the macro 
instruction. 

COPYNR= number 

is coded as shown in the standard form of the macro 
instruction. 

DISP=XSCHEDULE INQSCHEDULE1 EXTERNAL ! 

is coded as shown in the standard form of the macro 
instruction. 

FCB={ imageid 3 

C C imageid >CV|A})3 

is coded as shown in the standard form of the macro 
instruction, except for the A( address ) and R( register ) 
parameters, which cannot be specified. 
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FLASH=Cname} 

{([.name 3,£oun±)} 

is coded as shown in the standard form of the macro 
instruction. 


INIT={{j| YJ 

is coded as shown in the standard form of the macro 
instruction. 

LIBDCB= dcbaddress —A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 


MODIFY=CjnajmeJ 

{ (name, t.rc. )> 

is coded as shown in the standard form of the macro 
instruction, except for the AC address ) and R( register ) 
parameters, which cannot be specified. 

MSGAREA= address —A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 

OPTCD={B|U} 

{({B|U},{F|U})} 

is coded as shown in the standard form of the macro 
instruction. 

PRTMSG={NIYJ 

is coded as shown in the standard form of the macro 
instruction. 

REXMIT=£M|Y} 

is coded as shown in the standard form of the macro 
instruction. 


UCS={£sc} 

£(csc,CFIF,VIV1)1 


is coded as shown 
instruction. 


in the standard form of the macro 


• i 



specifies that the list form of the macro instruction is 
used to create a parameter list that can be referenced by 
an execute form of the SETPRT macro instruction. 
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SETPRT—EXECUTE FORM 


A remote data management parameter list is referred to, and can 
be modified by, the execute form of the SETPRT macro 
instruction. 

The description of the standard form of the SETPRT macro 
instruction provides the explanation of the function of each 
operand. The format description below indicates the optional 
and required operands for the execute form only. The dcbaddr 
parameter must be specified in the list or execute form of the 
SETPRT macro. 

The execute form of the SETPRT macro instruction is written as 
follows: 


Csymbol3 


SETPRT 


Edcbaddr3 
[,BURST={M|Y|*J3 

C»CHARS={name I A(a ddress ) I RE register )!> 

C t{n a .ine|A(, gd . d£^ s g ) 1 REiLe.gist.ej:)3* ♦ *. )3 
{*33 

E>COPIES = { number 1x13 
E,COPYNR={number 1*33 

E, DISP=E SCHEDULE|NOSCHEDULE I EXTERNAL 3 
E >FCB=Ii mageid 1 AC address )I RE register )3 

C(CimaseidI AC address)1 Re register )> 
CV|AJ)}E*}3 
E,FLASH={ name 3 

U Eo.amg3 ,.c_9. u nl)3 
£*3 3 

E f INIT=CU|Y}3 
E,LIBDCB= dcbaddress 3 

E,MODIFY={ name I AC address )1RC register )3 

{C{ n ames 1AC aM tie ss 3 IRC cssisisr. )3»trc3 
{*3 3 

E »MSGAREA=a ddress 3 
E,OPTCD=CB|U} 

{(CB|U},{F|UJ)J3 
E,PRTMSG=EN|Y3 
E,REXMIT={NIY] 

E,UCS={csc> 

{(cs^,{F|F,V|VJ)}3 

,MF=CE,{ data management, list address l(1)J ) 


dcbaddr —RX~Type Address or C2-12) 

BURST={N|Y|*} 

is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When BUR$T=* is coded, the 
BURST field in the parameter list remains as it was 
previously set. This operand is valid for the 3800 printer 
only. 

CHARS={ name I AC address )| RC register 33 

C C{ name I AC address )IRC register )3>»..)3 

{*3 

is coded as shown in the standard form of the macro 
instruction, except for the X subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When CHARS=X is coded, the 
CHARS field in the parameter list remains as it was 
previously set. 

C0PIES=T number 1x3 

is coded as shown in the standard form of the macro 
instruction, except for the X subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When C0PIES=X is coded, the 
COPIES field in the parameter list remains as it was 
previously set. 
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COPYNR={number|*} 

is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When C0PYNR=X is coded, the 
COPYNR field in the parameter list remains as it was 
previously set. 

DI$P={SCHEDULE|NOSCHEDULE 1 EXTERNAL ! 

is coded as shown in the standard form of the macro 
instruction. 

FCB=C imageid IA(address)|R( register )1 

{({ imageid I AC address )IRC register )}>{VI A})} 

{*} 

is coded as shown in the standard form of the macro 
instruction, except for the X subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When FCB=X is coded, the FCB 
field in the parameter list remains as it was previously 
set. 

FLASH=Cname} 

{ C Cname3 > count )> 

{*} 

is coded as shown in the standard form of the macro 
instruction, except for the X subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When FLASH=X is coded, the 
FLASH field in the parameter list remains as it was 
previously set. 

INIT={NIYJ 

is coded as shown in the standard form of the macro 
instruction. When INIT=Y is specified on the execute form 
of the SETPRT macro instruction, all 3800 fields in the 
parameter list (BURST, CHARS, COPIES, COPYNR, FCB, FLASH, 
MODIFY, and REXMIT) will be reset to binary zeros unless a 
specified field is preserved by coding keyword parameter=* 
or changed by specifying a valid subparameter for the 
keyword parameter as described in the standard form of the 
macro instruction. 


LIBDCB= dcbaddress —A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 


MODIFY={ name | A( address ) IRC register ) } 

{({ name IA( address )|RC register D » trc )J 
{*} 

is coded as shown in the standard form of the macro 
instruction, except for the x subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When M0DIFY=X is coded, the 
MODIFY field in the parameter list remains as it was 
previously set. 


MSGAREA= address —A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 

0PTCD={B|UJ 

UCB|U},{FIU})} 

is coded as shown in the standard form of the macro 
instruction. 


PRTMSG={N|YJ 

is coded as shown in the standard form of the macro 
instruction. 

is coded as shown in the standard form of the macro 
instruction. 
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REXMIT={N|Y|*} 

is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When REXMIT=x is coded, the 
REXMIT field in the parameter list remains as it was 
previously set. 

UCS={csc} 

{Ccs£,{F|F,V|V})} 

is coded as shown in the standard form of the macro 
instruction. 

MF= C E f { data management list address |Cl)}) 

specifies that the execute form of the SETPRT macro 
instruction is used, and an existing data management 
parameter list is used. 

E —Coded as shown 

data management list address —RX-Type Address, (2-12), 
or (1) 
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STOW—UPDATE PARTITIONED DATA SET DIRECTORY__(BPAMI 


The STOW macro instruction causes the system to update a 
partitioned data set directory by adding, changing, replacing, 
or deleting an entry in the directory. Only one entry can be 
updated at a time using the STOW macro instruction. If the 
entry to be added or replaced is a member name, the system 
writes an end-of-data indication following the member. All 
input/output operations using the same data control block must 
have previously been tested for completion. 

The STOW macro is written: 


[symbol] 

STOW 

d&b-address 



.list address 



[, di r_gc ±ojLy_3 cjjo n ] 



[.directory actionlAlC|D|R]1 


-RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened partitioned data set. The 
STOW macro instruction can be used only when the data set 
is opened for OUTPUT, UPDAT or OUTIN (BSAM). 

-RX-Type Address, (2-12), or (0) 

The list address operand specifies the address of the area 
containing the information required by the system to 
maintain the partitioned data set directory. The size and 
format of the area depend on the directory action requested 
as follows: 

Adding or Replacing a Directory Entry: The list address 
operand must specify an area at least 12 bytes long and 
beginning on a halfword boundary. The following 
illustration shows the format of the area: 


List Address 


Length 

Bytes 



NAME 

TTR 

C 

USER DATA ^ 

8 

3 

1 

0 to 62 


NAME: Specifies the member name or alias being added or 
replaced. The name must begin in the first byte of the 
field and be padded on the right with blanks, if necessary, 
to complete the 8-byte field. 

TT: Specifies the relative track number where the beginning 
of the data set is located. 

R: Specifies the relative block (record) number on the 
track identified by TT. 

Note: The TTR field shown above must be supplied by the 

problem program if an alias (alias bit is 1) is being added 
or replaced. The system supplies the TTR field when a 
member name is being added or replaced. 
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C: Specifies the type of entry (member or alias) for the 
name^ the number of note list fields (TTRNs), and the 
length in halfwords/ of the user data field. The following 
describes the meaning of the 8 bits: 


Bit Meaning 

0=0 Indicates a member name. 


0=1 Indicates an alias. 

1 and 2 Indicate the number of TTRN fields (maximum of 3) 
in the user data field. 

3-7 Indicate the total number of halfwords in the user 

data field. 


Deleting a Directory Entry: The list address operand must 
specify an 8-byte area that contains the member name or 
alias to be deleted. The name must begin in the first byte 
of the area and be padded on the right with blanks/ if 
necessary/ to complete the 8 bytes. 

Changing the Name of a Member: The list address operand 
must specify the address of a 16-byte area; the first 8 
bytes contain the old member name or alias/ and the second 
8 bytes contain the new member name or alias. Both names 
must begin in the first byte of their 8-byte area and be 
padded on the right with blanks/ if necessary/ to complete 
the 8-byte field. 

directory action —Cdef•A|C|D|R] 

If the directory action operand is not coded/ A (add an 
entry) is the default. The operand is coded as shown to 
specify the type of directory action: 

A 

specifies that an entry is to be added to the 
directory. 

C 

specifies that the name of an existing member or alias 
is to be changed. 

D 

specifies that an existing directory entry is to be 
deleted. 

R 

specifies that an existing directory entry is to be 
replaced by a new directory entry. If R is coded but 
the old entry is not found/ the new entry is added to 
the directory and a completion code of X’OS* is 
returned in register 15. 


COMPLETION CODES 


When the system returns control to the problem program/ register 
15 contains a return code and register 0 contains a reason code 
in the low-order byte; the three high-order bytes of both 
registers are set to 0. 
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The following is a list of return codes contained in register 
15: 


Codes 


Directory Action 


Return (15) 

A 

R 

D 

C 

00 

The update of 
the directory 
was completed 
successfully. 

The update of 
the directory 
was completed 
successfully. 

The update of 
the directory 
was completed 
successfully. 

The update of 
the directory 
was completed 
successfully. 

04 

The directory 
already 
contains the 
specified name. 



The directory 
already 
contains the 
specified new 
name. 

08 


The specified 
name could not 
be found. 

The specified 
name could not 
be found. 

The specified 
old name could 
not be found. 

OC 

No space left 
in the 
directory. 

The entry 
could not be 
added, 

replaced, or 
changed. 

No space left 
in the 
directory. 

The entry 
could not be 
added, 

replaced, or 
changed. 


No space left 
in the 
directory. 

The entry 
could not be 
added, 

replaced, or 
changed. 

10 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
(SYNAD) 
routine. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
(SYNAD) 
routine. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
(SYNAD) 
routine. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
(SYNAD) 
routine. 

14 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

18 

Insufficient 
virtual 
storage was 
available to 
perform the 

STOW function. 

Insufficient 
virtual 
storage was 
available to 
perform the 

STOW function. 

Insufficient 
virtual 
storage was 
available to 
perform the 

STOW function. 

Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 
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The following is a list of reason codes contained in register 0. 

Reason 

Code (0) Meaning 


00 (X'OO 1 ) Reason code is not applicable. (Returned with 
all return codes except 10.) 

01 (X’Ol 1 ) All functions; the permanent I/O error occurred 
while reading or writing directory blocks. 

02 (X'OZ 1 ) Add and replace functions; the permanent I/O 

error occurred while EOF mark after the member. 

3383 Error occurred when trying to write an EOF; all 

(X^S? 1 ) primary space used. 




Macro Instruction Descriptions 167 




SYNADAF 


SYNADAF—PERFORM SYNAD ANALYSIS FUNCTION (EDAM, BISAM» BPAM, BSAM, EXCP, QISAM, A ND 
QSAM) 

The SYNADAF macro instruction is used in an error analysis 
routine to analyze permanent input/output errors. The routine 
can be a SYNAD exit routine specified in a data control block 
for BDAM, BISAM, BPAM, BSAM, QISAM, QSAM, or a routine that is 
entered directly from a program that uses the EXCP macro 
instruction. (The EXCP macro instruction is described in Data 
A dmloi strati . pn. . Guide . ) 

The SYNADAF macro instruction uses register 1 to return the 
address of a buffer containing a message. The message describes 
the error, and can be printed by a subsequent PUT or WRITE macro 
instruction. The message consists of EBCDIC information and is 
in the form of a variable-length record. The format of the 
message is shown following the descriptions of the SYNADAF 
operands. 

The system does not use the save area whose address is in 
register 13. Instead, it provides a save area for its own use, 
and then makes this area available to the error analysis 
routine. The system returns the address of the new save area in 
register 13 and in the appropriate location (word 3) of the 
previous save area; it also stores the address of the previous 
save area in the appropriate location (word 2) of the new save 
area . 

The SYNADAF macro instruction passes parameters to the system in 
registers 0 and 1. When used in a SYNAD exit routine, the 
SYNADAF macro should be coded at the beginning of the routine. 
(See Data Facility Product: Customization .) For BISAM and 
QISAM, the SYNAD exit routine has to set up these parameters as 
explained under PARM1 and PARM2. To save these parameters for 
use by the SYNAD exit routine, the system stores them in a 
parameter save area that follows the message buffer as shown in 
the message buffer format. The system does not alter the return 
address in register 14 or the entry point address in register 
15. 


When a SYNADAF macro instruction is used, a SYNADRLS macro 
instruction must be used to release the message buffer and save 
areas, and to restore the original contents of register 13. 

The SYNADAF macro is written: 


[symbol] 

SYNADAF 

ACSMETH={BDAM 




[,PARMl=parm 

register! 



[,PARM2=parm 

reaister]} 



{BPAM 




[,PARMl=parm 

.register] 



[. PARM2=pa t~tti 

register]} 



{BSAM 




[,PARMl=parm 

register] 



[,PARM2=parm 

register]} 



{QSAM 




[»PARMl=parm 

register! 



[ t PARM2=pa rm 

register]? 



{BISAM 




[,PARMl=dcbaddr] 



E,PARM2=dcb address]} 



{EXCP 




[,PARMl=iob address]} 



{QISAM 




[.PARMl-dcbaddrl 



[»PARM2=parm 

..register:]? 


ACSMETH=BDAM, BPAM, BSAM, QSAM, BISAM, EXCP, or QISAM 
specifies the access method used to perform the 
input/output operation for which error analysis is 
performed. 
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PARI41 = parm register , iobaddr , or dcbaddr —(2-12) or (1) 

specifies the address of information that is dependent on 
the access method being used. For BDAM, BPAM, BSAM, or 
QSAM, the operand specifies a register that contains the 
information that was in register 1 on entry to the SYNAD 
routine. For BISAM or QISAM, it specifies the address of 
the data control block; for EXCP, it specifies the address 
of the input/output block. If the operand is omitted, 
PARM1=(1) is assumed. 

PARM2= parm regist er—(2-12), (0), or RX-Type 
(only if ACSMETH=QI$AM) 

specifies the address of additional information that is 
dependent on the access method being used. For BDAM, BPAM, 
BSAM, QISAM, and QSAM, the operand specifies a register 
that contains the information that was in register 0 on 
entry to the SYNAD exit routine. For BISAM, the operand 
specifies a register that contains the information that was 
in register 1 on entry to the SYNAD exit routine (the 
address of the DECB). For EXCP, the operand is meaningless 
and should be omitted. If the operand is omitted, except 
in the case of EXCP, PARM2=(0) is assumed. 

Note: To correctly load the registers for SYNADAF for BISAM, 

code these two instructions before issuing the SYNADAF macro: 

LR 0,1 GET DECB ADDRESS 

L 1,8(1) GET DCB ADDRESS 


COMPLETION CODES 


Nhen the system returns control to the problem program, the 
low-order byte of register 0 contains one of the following 
reason codes; the three high-order bytes of register 0 are set 
to 0. 

Reason 

Code (0) Meaning 


00 (X'OO 1 ) Successful completion. Bytes 8 through 
13 of the message buffer contain 
blanks. 


04 (X , 04 l ) Successful completion. Bytes 8 through 
13 of the message buffer contain binary 
data . 

08 (X'OS 1 ) Unsuccessful completion. The message 

can be printed, but some information is 
missing in bytes 50 through 127 and is 
represented by asterisks. If byte 8 is 
a blank (X^O 1 ), bytes 9 through 13 are 
either blanks or are not initialized. 

If byte 8 is not a blank, then data was 
read, and bytes 8 through 13 of the 
message buffer contain binary data. 
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MESSAGE BUFFER FORMAT 

The following illustration shows the format of the message 
buffer; the address of the buffer is returned in register 1. 





v,. 


Notess 

1. The device type field (bytes 72 through 73) contains UR for a unit record 

device, TA for a magnetic tape device, or DA for a direct access device. 

2. If a message field (bytes 91 through 105) is not applicable to the type of error 

that occurred, it contains N/A or NOT APPLICABLE. 

3. If no data was transmitted, or if the access method is QISAM, bytes 8 through 13 

contain blanks or binary zeros. 

4. If the access method is BISAM, bytes 68 through 70, 84 through 89, and 107 
through 120 contain asterisks. 

5. If the access method is BDAM, and if the error was an invalid request, bytes 107 
through 120 contain EBCDIC zeros. 

6. The unit address field (bytes 68 through 70) contains the letters *JES 1 if the 
data set is SYSIN or SYS0UT. 
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SYNADRLS—RELEASE SYNADAF BUFFER AND SAVE AREAS (EDAM, BISAM, BPAM, BSAM, EXCP, 
QISAMt AND QSAM) 


The SYNADRLS macro instruction releases the message buffer, 
parameter save area, and register save area provided by a 
SYNADAF macro instruction. It must be used to perform this 
function whenever a SYNADAF macro instruction is used. 

When the SYNADRLS macro instruction is issued, register 13 must 
contain the address of the register save area provided by the 
SYNADAF macro instruction. The control program loads register 
13 with the address of the previous save area, and sets word 3 
of that save area to 0. Thus, when control is returned, the 
save area pointers are the same as before the SYNADAF macro 
instruction was issued. 

The SYNADRLS macro is written: 


[ symbol 3 


SYNADRLS 


b 


When the system returns control to the problem program, the 
low-order byte of register 0 contains one of the following 
reason codes; the three high-order bytes of register 0 are set 
to 0 . 

Reason 

Code (0) Meaning 


00 CX'OO 1 ) Successful completion. 

08 (X'08 1 ) Unsuccessful completion. The buffer 

and save areas were not released; the 
contents of register 13 remain 
unchanged. Register 13 does not point 
to the save area provided by the 
SYNADAF macro instruction, or this save 
area is not properly chained to the 
previous save area. 
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SYNCDEV—SYNCHRONIZE DEVICE 

The SYNCDEV macro instruction allows you to control data 
synchronization for the IBM 3480 Magnetic Tape Subsystem that 
supports buffered write mode. Data records in the tape control 
unit buffer may not yet be on tape when your program is ready to 
send more. There is no way to determine how much data is left 
in the buffer, and it is time dependent to tape motion. This 
data is not synchronized to your program; that is, you could 
overlay unwritten data in the buffer, or lose data when it is 
transferred from the channel if the buffer does not have enough 
space to hold it. You can use the SYNCDEV macro to either: 

• Request information regarding synchronization 

• Demand synchronization if the specified number of data 
blocks are buffered 

If more blocks are,buffered than were specified, the system 
stays in control until all the blocks are written to the 
tape or it detects an I/O error. 

If the same amount or fewer blocks are buffered, buffering 
is not affected. 

Note: Demands for synchronization are ignored if the drive is 

in read mode. 

The SYNCDEV macro is written: 


[gymb-oU 

SYNCDEV 

DCB=addp 



[.CABUFELK=addrIBUFBLK= 



{maximum buffer depth! OH] 



[ t INQ=£YES | JJO} 1 


The following describes the operands that can be specified for 

SYNCDEV. 

DCB= addr —A-Type address or (2-12) 

specifies the address of the data control block. 

ABUFBLK=addr | BUFBLK= maximum buf f er depth IJ1 

specifies the maximum number of data blocks that can be 
buffered. 

ABUFBLK= addr —A-Type address or (2-12) 

specifies the address of a halfword on a halfword 
boundary that contains a value that specifies the 
maximum number of data blocks that can be buffered. 

BUFBLK={ maximum buffer deoth lOT 

specifies the maximum number of data blocks that can 
be buffered. This number can be an absolute value 
from 0 to 65535. The BUFBLK value can be in the two 
low-order bytes of a register (2-12). 


If neither ABUFBLK nor BUFBLK is specified, the 
number of data blocks that can be buffered 
defaults to 0, and no data blocks are buffered. 

INQ={YES|MOJ 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer. 


172 MVS/XA Data Administration: Macro Instruction Reference 



SYNCDEV 


specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in ABUFBLK or BUFBLK. 

Register 0 contains the number of buffered physical 
blocks if the previous operation completed 
successfully. 

Note: Do not use this option in 31-bit residence 

mode; it requires a 24-bit addressing mode parameter 
list. 
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SYNCDEV— LIST FORM 


The list form of the SYNCDEV macro is written; 


Csvmbol] 

SYNCDEV 

CDCB=addrl 



l t{BUFBLK=maximum buffer depth 10}3 



[ t INQ={YESI NO}] 



,MF=L 


The following describes the operands that can be specified for 
the list form of SYNCDEV. 

DCB= addr —A-Type address 

specifies the address of the data control block. 

BUFBLK={l maximum buffer depth lQ} 

specifies the maximum number of data blocks that can be 
buffered. This number can be an absolute value from 0 to 
65535. If BUFBLK is not specified, the number of data 
blocks that can be buffered defaults to 0, and no data 
blocks are buffered. 

£ 

If neither ABUFBLK nor BUFBLK is specified, the number 
of data blocks that can be buffered defaults to 0, and 
no data blocks are buffered. 

INQ={YES|NO} 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer. 

NO 

specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in BUFBLK. 

MF=L 

generates a 24-bit addressing-mode parameter list that 
contains no executable instructions. The list can be used 
as input and can be modified by the execute form of the 
SYNCDEV macro. 

Note: Do not use this option in 31-bit residence mode; it 

requires a 24-bit addressing-mode parameter list. 
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SYNCDEV—EXECUTE FORM 

The execute form of the SYNCDEV macro is written: 


C sym bo l 3 


SYNCDEV 


CDCB=addr3 

C,{ABUFBLK=addrIBUFBLK= 
{m aximum buffer depth lQTT ] 
i ,INQ={YESINO}] 

,MF=(E,addr) 


The following describes the operands that can be specified for 
the execute form of SYNCDEV. 

DCB= addr —A-Type address or (2-12) 

specifies the address of the data control block. 

ABUFBLK= addr |BUFBLK={m aximum buffer depth |fi 

specifies the maximum number of data blocks that can be 
buffered. 

ABUFBLK= addr —A-Type address or (2-12) 

specifies the address of a halfword on a halfword 
boundary that contains a value that specifies the 
maximum number of data blocks that can be buffered. 

BUFBLK= maximum buffer depth | Q. 

specifies the maximum number of data blocks that can 
be buffered. This number can be an absolute value 
from 0 to 65535. The BUFBLK value can be in the two 
low-order bytes of a register (2-12). 

!1 

If neither ABUFBLK nor BUFBLK is specified, the 
number of data blocks that can be buffered 
defaults to 0, and no data blocks are buffered. 

INQ={YESlNflJ 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer. 

m 

specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in ABUFBLK or BUFBLK. 

Register 0 contains the number of buffered physical 
blocks if the previous operation completed 
successfully. 

Note: Do not use this option in 31-bit residence 

mode; it requires a 24-bit addressing mode parameter 
list. 

MF=(E, addr ) 

specifies the execute form of SYNCDEV. 

addr — A-Type address, RX-Type address, or (2-12) 

specifies the 24-bit addressing-mode address for the 
parameter list. 
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COMPLETION CODES 

When the system returns control to your problem program, the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code: 

Return Reason 

Code (15) Code (0) Meaning 


00 (X'OO 1 ) 

04 (X 1 04 1 ) 
04 (X 1 04 1 ) 
04 (X f 04 1 ) 
04 (X f 04 1 ) 
04 (X 1 04 1 ) 
04 (X * 04 1 ) 
04 (X* 04 1 ) 
08 (X'OS 1 ) 


Successful completion. Register 0 
contains the number of data blocks in 
the control unit buffer. 

01 (X'Ol 1 ) Incorrect parameter. 

02 (X'02 1 ) Incorrect DCB or a DEBCHK error. 

03 (X f 03 f ) Environmental error. 

04 (X , 04 l ) Incorrect input to NOTE. 

05 (X'05 1 ) Device does not support buffering. 

11 (X'OB 1 ) Unsuccessful call to ESTAE macro. 

12 (X'OC) Unsuccessful GETMAIN request. 

Permanent I/O error during read block 
ID or synchronize command. 


12 (X*0C f ) Permanent I/O error on the last channel 

program with loss of data. 

Note: If you specified a SYNAD option 

in the DCB and issue a PUT or CHECK 
macro after this error occurs, your 
program cannot enter the SYNAD routine. 


f # x "' 
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TR UNC—TRUNCATE AN OUTPUT BUFFER (QSAM OUTPUT—FIXED- OR VARIABLE"LENGTH BLOCKED 
RECORDS) 


The TRUNC macro instruction causes the current output buffer to 
be regarded as full. The next PUT or PUTX macro instruction 
specifying the same data control block uses the next buffer to 
hold the logical record. 

When a variable-length spanned record is truncated and logical 
record interface, or extended logical record interface, is 
specified (that is, if BFTEK=A is specified in the DCB macro 
instruction, or if a BUILDRCD macro instruction is issued, or if 
DCBLRECL=OK or nnnnnK is specified), the system segments and 
writes the record before truncating the buffer. Therefore, the 
block being truncated is the one that contains the last segment 
of the spanned record. 

The TRUNC macro instruction is ignored if it is used for 
unblocked records, if it is used when a buffer is full, or if it 
is used without an intervening PUT or PUTX macro instruction. 

The TRUNC macro is written; 


[ symbol 3 


TRUNC 


deb address 


deb addres s—RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the sequential data set opened for 
output. The record format in the data control block must 
not indicate standard blocked records (RECFM=FBS). 
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WAIT— .W AIT ,FOR... QNE OR MORE EVENTS .BPAM^. ANB LP S AtU 

The WAIT macro instruction is used to inform the control program 
that performance of the active task cannot continue until one or 
more specific events, each represented by a different ECB (event 
control block), have occurred. In the context of this manual, 
the ECBs represent completion of I/O processing associated with 
a READ or WRITE macro. ECBs are located at the beginning of 
access method DECBs (data event control blocks), so that the 
DECB name provided in READ and WRITE macros is also used for 
WAIT. (A description of the ECB is found in Appendix A, "Status 
Information Following an Input/Output Operation" on page 192. 

For information on when to use the WAIT macro, see Data 
Administration Guide .) 

The control program takes the following action: 

• For each event that has already occurred (each ECB is 
already posted), the count of the number of events is 
decreased by 1. 

• If the number of events is 0 by the time the last event 
control block is checked, control is returned to the 
instruction following the WAIT macro instruction. 

• If the number of events is not 0 by the time the last ECB is 
checked, control is not returned to the issuing program 
until sufficient ECBs are posted to bring the number to 0. 
Control is then returned to the instruction following the 
WAIT macro instruction. 

• The events will be posted complete by the system when all 
I/O has been completed, temporary errors have been 
corrected, and length checking has been performed. The DECB 
is not checked for errors or exceptional conditions, nor are 
end-of-volume procedures initiated. Your program must 
perform these operations. 

The WAIT macro is written: 


[svmbol3 

WAIT 

[number of events] 


£,ECB=addr|ECBLIST=gddrJ 
[ r L0NG={YESI NO}] 


number of events 

specifies a decimal integer from 0 to 255. Zero is an 
effective NOP instruction; 1 is assumed if the operand is 
omitted. The number of events must not exceed the number 
of event control blocks. You may also use register 
notation (2-12) . 

ECB= addr 

specifies the address of the event control block (or DECB) 
representing the single event that must occur before 
processing can continue. The operand is valid only if the 
number of events is specified as 1 or is omitted. 

addc 

specify RX type or use register notation (1-12). 
ECBLIST= addr 

specifies the address of a virtual storage area containing 
one or more consecutive fullwords on a fullword boundary. 
Each fullword contains the address of an event control 
block (or DECB); the high-order bit in the last word 
(address) must be set to 1 to indicate the end of the list. 
The number of event control blocks must be equal to or 
greater than the specified number of events. 
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LONG=CYESI NO] 

specifies whether the task is entering a long wait or a 
regular wait. Normally, I/O events should not be 
considered ■long* unless it is anticipated that operator 
intervention will be required. 

Caution: A job step with all its tasks in a WAIT condition 
terminates upon expiration of the time limits that apply to it. 

Access method ECBs are maintained entirely by the access methods 
and supporting control program facilities. The user may inspect 
access method ECBs, but should never modify them. 


Macro Instruction Descriptions 179 



WRITE 


WRIT E~ . W R IT E.-A- B . LQC K.(BP AM) 

The WRITE macro instruction causes the system to add or replace 
a block in an existing direct data set. (This version of the 
WRITE macro instruction cannot be used to create a direct data 
set because no capacity record facilities are provided.) 

Control may be returned before the block is written. The output 
operation must be tested for completion using a CHECK or WAIT 
macro instruction. A data event control block, shown in 
Appendix A, "Status Information Following an Input/Output 
Operation” on page 192, is constructed as part of the macro 
expansion. 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


E symb o l3 


WRITE 


d.ec b ..n am e 
y type 

» dcb address 
> { ajyea_a d d nesg I 1 S 1 } 

,{ length I'S'} 
t { key address I 1 S 1 I 0} 
, block address 



decb name —symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 

type —{DACF33 

{DIEFiXn 

{DKEFIX1} 

is coded in one of the combinations shown to specify the 
type of write operation and optional services performed by 
the system: 

DA 

specifies that a new data block is to be added to the 
data set in the first available space; the search for 
available space starts at the device address indicated 
in the area specified in the block address operand. 
Fixed-length records (with keys only) are added to a 
data set by replacing dummy records. Variable-length 
records (with or without keys) are added to a data set 
by using available space on a track. (For more 
information on adding records to a direct data set, 
see Data Administration Guide . The description of the 
DCB macro instruction, LIMCT operand, contains a 
description of the search.) 

DI 

specifies that a data block and key, if any, are to be 
written at the device address indicated in the area 
specified in the block address operand. Any attempt 
to write a capacity record (R0) is an invalid request 
when relative track addressing or actual device 
addressing are used, but when relative block 
addressing is used, relative block 0 is the first data 
block in the data set. 

DK 

specifies that a data block (only) is to be written 
using the key in the area specified by the key address 
operand as a search argument; the search for the block 
starts at the device address indicated in the area 
specified in the block address operand. The 
description of the DCB macro instruction, LIMCT 
operand, contains a description of the search. 


4 ' 
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F 

requests that the system provide block position 
feedback into the area specified in the block address 
operand. This character can be coded as a suffix to 
DA> DI> or DK as shown above. 

X 

requests that the system release the exclusive control 
requested by a previous READ macro instruction and 
provide block position feedback into the area 
specified in the block address operand. This 
character can be coded as a suffix to DI or DK as 
shown above. 4 

deb address —A-Type Address or (2-12) 

specifies the address of the data control block for the 
opened BDAM data set. 

area address —A-Type Address, (2-12), or 'S' 

specifies the address of the area that contains the data 
block to be written. 'S 1 can be coded instead of an area 
address only if the data block (or key and data) are 
contained in a buffer provided by dynamic buffering; that 
is, 'S* was coded in the area address operand of the 
associated READ macro instruction. If 'S 1 is coded in the 
WRITE macro instruction, the area address from the READ 
macro instruction data event control block must be moved 
into the WRITE macro instruction data event control block; 
the buffer area acquired by dynamic buffering is released 
after the WRITE macro instruction is executed. For a 
description of the data event control block, see 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. 

length —symbol, decimal digit, absexp, (2-12) or , S I 

specifies the number of data bytes to be written up to a 
maximum of 32760. If 'S 1 is coded, it specifies that the 
system uses the value in the block size (DCBBLKSI) field as 
the length. When undefined-length records are used, if the 
WRITE macro instruction is for update and the length 
specified differs from the original block, the new block 
will be truncated or padded with binary zeros accordingly. 
The problem program can check for this situation in the 
SYNAD routine. 

If the length operand is omitted for format-U records, no 
error indication is given when the program is assembled, 
but the problem program must insert a length into the data 
event control block before the WRITE macro instruction is 
executed. 

kev address —A-Type Address, (2-12), 1 S 1 , or 0 

specifies the address of the area that contains the key to 
be used. 'S’ is specified instead of an address only if 
the key is contained in an area acquired by dynamic 
buffering. If the key is not written or used as a search 
argument, zero is specified instead of a key address. 

block address —A-Type Address or (2-12) 

specifies the address of the area that contains the 
relative block address, relative track address, or actual 
device address used in the output operation. The length of 
the area depends on the type of addressing used and if the 
feedback option (0PTCD=F) is specified in the data control 
block. 

If 0PTCD=F has been specified in the DCB macro and F or X 
is specified in the WRITE macro, you must provide a 
relative block address in the form specified by OPTCD in 
the DCB macro. For example, if 0PTCD=R is specified, you 
must provide a 3-byte relative block address; if GPTCD=A is 
specified, you must provide an 8-byte actual device address 
(MBBCCHHR); if neither is specified, you must provide a 
3-byte relative address (TTR). 
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If OPTCD=F has not been specified in the DCB macro and F or 
X is specified in the WRITE macro, then you must provide an 
8-byte actual device address (MBBCCHHR) even if relative 
block or relative track addressing is being used. 
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WRITE—WRITE A LOGICAL RECORD OR BLOCK OF RECORDS (BISAMI 

The WRITE macro instruction causes the system to add or replace 
a record or replace an updated block in an existing indexed 
sequential data set. Control may be returned to the problem 
program before the block or record is written. The output 
operation must be tested for completion using a WAIT or CHECK 
macro instruction. A data event control block, shown in 
Appendix A, “Status Information Following an Input/Output 
Operation" on page 192, is constructed as part of the macro 
expansion. 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


[symbol 3 

WRITE 

decb name 
f type 



»dcb address 

1 {area address I *S’ } 

,{length 1’S’} 

,kev address 


decb name —symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 

type —CKIKNI 

is coded as shown to specify the type of write operation: 

K 

specifies that either an updated unblocked record or a 
block containing an updated record is to be written. 

If the record has been read using a READ KU macro 
instruction, the data event control block for the READ 
macro instruction must be used as the data event 
control block for the WRITE macro instruction, using 
the execute form of the WRITE macro instruction. 

KN 

specifies that a new record is to be written, or a 
variable-length record is to be rewritten with a 
different length. All records or blocks of records 
read using READ KU macro instructions for the same 
data control block must be written back before a new 
record can be added, except when the READ KU and WRITE 
KN reference the same DECB. 

deb address —A-Type Address or (2-12) 

specifies the address of the data control block for the 
opened existing indexed sequential data set. If a block is 
written, the data control block address must be the same as 
the deb address operand in the corresponding READ macro 
instruction. 

area address —A-Type Address, (2-12), or , S f 

specifies the address of the area containing the logical 
record or block of records to be written. The first 16 
bytes of this area are used by the system and should not 
contain your data. The area address must specify a 
different area than the key address. When new records are 
written (or when variable-length records are rewritten with 
a different length), the area address of the new record 
must always be supplied by the problem program. This area 
may be altered by the system. , S I may be coded instead of 
an address only if the block of records is contained in an 
area provided by dynamic buffering; that is, 'S' was coded 
for the area address operand in the associated READ KU 
macro instruction. This area is released after execution 
of a WRITE macro instruction using the same DECB. The area 
can also be released by a FREEDBUF macro instruction. 
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The following illustration shows the format of the area: 

Area- 1 

Address 


V 


Control 

Logical Record (WRITE KN) or Block 

Program Use 

of Records (WRITE K) 




Indexed sequential buffer and work area requirements are 
discussed in M t a... j Mm ni S ± ratj p n -J3,y id e. 

length —symbols decimal digits absexp, (2-12) or f S f 

specifies the number of data bytes to be written, up to a 
maximum of 32760. Specify 'S' unless a variable-length 
record will be rewritten with a different length. 

key address —A-Type Address or (2-12) 

specifies the address of the area containing the key of the 
new or updated record. The key address must specify a 
different area than the area address. For blocked records, 
this is not necessarily the high key in the block. For 
unblocked records, this field should not overlap with the 
work area specified in the MSWA parameter of the DCB macro 
instruction. 

Note: When new records are written, the key area may be 

altered by the system. 
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WRITE—WRITE ABLOCK CBPAM AND BSAM) 

The WRITE macro instruction causes the system to add or replace 
a block in a sequential or partitioned data set being created or 
updated. Control may be returned to the problem program before 
the block is written. The output operation must be tested for 
completion using the CHECK macro instruction. A data event 
control block, shown in Appendix A, "Status Information 
Following an Input/Output Operation" on page 192, is constructed 
as part of the macro expansion. 

If translation from EBCDIC code to ISCII/ASCII code is 
requested, issuing multiple WRITE macro instructions for the 
same record causes an error because the first WRITE macro 
instruction issued causes the output data in the output buffer 
to be translated into ISCII/ASCII code. 

If the OPEN macro instruction specifies UPDAT, both the READ and 
WRITE macro instructions must reference the same data event 
control block. See the list form of the READ or WRITE macro 
instruction for a description of how to construct a data event 
control block; see the execute form of the READ or WRITE macro 
instruction for a description of modifying an existing data 
event control block. 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


E svmbol ] 


WRITE 


decb name 

y SF 

, dcb address 
, area address 
E > length I t 'S' 3 


decb name —symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 


SF 

specifies normal, sequential, forward operation. 

deb address —A~Type Address, or (2-12) 

specifies the address of the data control block for the 
opened data set being created or processed. If the data 
set is being updated, the data control block address must 
be the same as the deb address operand in the corresponding 
READ macro instruction. 

area address —A-Type Address or (2-12) 

specifies the address of the area that contains the data 
block to be written; if a key is written, the key must 
precede the data in the same area. 

length —symbol, decimal digit, absexp, (2-12) or 'S' 

specifies the number of bytes to be written; this operand 
is specified for only undefined-length records (RECFM=U) or 
for ASCII records (RECFM=D) when the DCB BUFOFF operand is 
zero. For AL tapes, the maximum length is 2048 bytes; 
otherwise, the maximum length is 32760 bytes. f S l can be 
coded to indicate that the value specified in the block 
size (DCBBLKSI) field of the data control block is used as 
the length to be written. The length operand should be 
omitted for all record formats except format-U and format-D 
(when BUFOFF=0). 

If the length operand is omitted for format-U or format-D 
(with BUFOFF=0) records, no error indication is given when 
the program is assembled, but the problem program must 
insert a length into the data event control block before 
the WRITE macro is issued. 
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WRITE—WRITE A BLOCK (CREATE A BDAM DATA SET WITH RSAM) 

The WRITE macro instruction causes the system to add a block to 
the direct data set being created. For fixed-length blocks, the 
system writes the capacity record automatically when the current 
track is filled; for variable and undefined-length blocks, a 
WRITE macro instruction must be issued for the capacity record. 
Control may be returned before the block is written. The output 
operations must be tested for completion using a CHECK macro 
instruction. A data event control block, shown in 
Appendix A, "Status Information Following an Input/Output 
Operation” on page 192, is constructed as part of the macro 
expansion. 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


[symbol] 

WRITE 

decb name 
t type 

»dcb address 



»area address 

C >length 1» 1 S 1 3 
[>next address] 


decb name —symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 

type —{SFISFRISDISZ} 

is coded as shown, to specify the type of write operation 
performed by the system: 

SF 

specifies that a new data block is to be written in 
the data set. 

SFR 

specifies that a new variable-length spanned record is 
to be written in the data set, and next address 
feedback is requested. This operand can be specified 
only for variable-length spanned records (BFTEK=R and 
RECFM=V$ are specified in the data set control block). 
If type SFR is specified, the next address operand 
must be included. 

SD 

specifies that a dummy data block is to be written in 
the data set; dummy data blocks can be written only 
when fixed-length records with keys are used. 

SZ 

specifies that a capacity record (RO) is to be written 
in the data set; capacity records can be written only 
when variable-length or undefined-length records are 
used. 

deb addres s—A-Type Address or (2-12) 

specifies the address of the data control block opened for 
the data set being created. DS0RG=PS (or PSU) and MACRF=WL 
must be specified in the DCB macro instruction to create a 
BDAM data set. 

area address —A-Type Address or (2-12) 

specifies the address of the area that contains the data 
block to be added to the data set. If keys are used, the 
key must precede the data in the same area. For writing 
capacity records (SZ), the area address is ignored and can 
be omitted (the system supplies the information for the 
capacity record). For writing dummy data blocks (SD), the 
area need be only large enough to hold the key plus one 
data byte. The system constructs a dummy key with the 


186 


MVS/XA Data Administration: Macro Instruction Reference 





WRITE 


first byte set to all 1 bits (hexadecimal FF) and adds the 
block number in the first byte following the key. When a 
dummy block is written, a complete block is written from 
the area immediately following the area address; therefore, 
the area address plus the value specified in the BLKSIZE 
and KEYLEN operands must be within the area allocated to 
the program writing the dummy blocks. 

length —symbol, decimal digit, absexp, (2-12), or f S l 

is used only when undefined-length (RECFM=U) blocks are 
being written. The operand specifies the length of the 
block, in bytes, up to a maximum of 32760. If ’S’ is 
coded, it specifies that the system is to use the length in 
the block size (DCBBLKSI) field of the data control block 
as the length of the block to be written. 

If the length operand is omitted for format-U records, no 
error indication is given when the program is assembled, 
but the problem program must insert a length into the data 
event control block before the WRITE is issued. 

next addres s—A-Type Address or (2-12) 

specifies the address of the area where the system places 
the relative track address of the next record to be 
written. Next address feedback can be requested only when 
variable-length spanned records are used. 

Note: When variable-length spanned records are used (RECFM=VS 

and BFTEK=R are specified in the data control block), the system 
writes capacity records (R0) automatically in the following 
cases: 

• When a record spans a track. 

• When the record cannot be written completely on the current 
volume. In this case, all capacity records of remaining 
tracks on the current volume are written; tracks not written 
for this reason are still counted in the search limit 
specified in the LIMCT operand of the data control block. 

• When the record written is the last record on the track, the 
remaining space on the track cannot hold more than eight 
bytes of data. 
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COMPLETION CODES FOR WRITE—WRITE A BLOCK (CREATE A BDAM DATA SET WITH BSAM) 

After the write has been scheduled and control has been returned 
to the user’s program, the three high-order bytes of register 15 
are set to 0; the low-order byte contains one of the following 
return codes: 


Return 

Code Meaning 


00 


04 


08 


0C 


Fixed-Length 


Variable or Undefined-Length 


(SF or SD) 


(SF or SFR) (SZ) 


Block will be written. 
(If the previous 
return code was 08, 
a block is written 
only if the DD 
statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 


Block will be written. 
(If the previous 
return code was 08, 
a block is written 
only if the DD 
statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 


Capacity record was 
written; another track 
is available. 


Block will be written, 
followed by a capacity 
record. (If the 
previous return code 
was 08, a block is 
written only if the 
DD statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 


Block was not written; 
write a capacity record 
(SZ) to describe the 
current track, then 
reissue the WRITE macro 
instruction. 


Block will be written, 
followed by a capacity 
record. The next 
block requires 
secondary space 
allocation. 


Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


Capacity record was 
written. The next 
block requires 
secondary space 
allocation. This 
code is not issued 
if the WRITE SZ is 
the only WRITE macro 
instruction issued on 
a one-track secondary 
extent. 

Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


Note: For fixed-length records, the return codes are unpredictable when writing one 

record per track with one track per extent. 
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WRI I Ez i USTLEORM 


The list form of the WRITE macro instruction is used to 
construct a data management parameter list in the form of a data 
event control block (DECB). For a description of the various 
fields in the DECB for each access method, see 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. 

The description of the standard form of the WRITE macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of 'S' 
when coded for the area address, length, and key address 
operands. For each access method, , S I can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the list form only, but 
does not indicate optional and required operands for any 
specific access method. 

The list form of the WRITE macro is written: 


[ symbol 3 


WRITE 


decb name 
f type 

t [ deb address ] 

9 [ area ad dress| ' S 1 3 
r [. le ngth 1 ’S’3 
r [ kev addres sl 1 S f 3 
9 [ block address 3 
9 [ next address 3 
t MF=L 


decb name —symbo1 

type —Code one of the types shown in the standard form 

deb address —A-Type Address 

area address —A-Type Address or 'S* 

length —symbol, decimal digit, absexp, or , S* 

kev address —A-Type Address or , S* 

block address —A-Type Address 

next address —A-Type Address 

MF=L— Coded as shown 

specifies that the WRITE macro instruction is used to 
create a data event control block that will be referenced 
by an execute-form instruction. 
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WRITE—EXECUTE FORM 


A remote data management parameter list (data event control 
block) is used in, and can be modified by, the execute form of 
the WRITE macro instruction. The data event control block can 
be generated by the list form of either a READ or WRITE macro 
instruction. 

The description of the standard form of the WRITE macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of 'S' 
when coded for the area address, length, and key address 
operands. For each access method, 'S' can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the execute form only, but 
does not indicate the optional and required operands for any 
specific access method. 

The execute form of the WRITE macro instruction is written as 
follows: 


[ symbol ] 


WRITE 


decb address 
f type 

f ( deb address ! 
t C area ad dress| 1 S 1 ] 
fl length f'S' 3 
f C kev address | 1 S 1 3 
t [ block address ! 
f [ next address ] 
t MF=E 


decb address —RX-Type Address or (2-12) 

type —Code one of the types shown in the standard form 

deb address —RX-Type Address or (2-12) 

area address —RX-Type Address, (2-12), or 'S* 

length —symbol, decimal digit, absexp, (2-12), or 'S' 

key address —RX-Type Address, (2-12), or 'S' 

block address —RX-Type Address or (2-12) 

next address —RX-Type Address or (2-12) 

MF=E—Coded as shown 

specifies that the execute form of the WRITE macro 
instruction is used, and an existing data event control 
block (specified in the decb address operand) is to be used 
by the access method. 
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XLATE 


XLATE—TRANSLATE TO AND FROM ISCII/ASCII (BSAM AND QSAM) 

The XLATE macro instruction is used to translate the data in an 
area in virtual storage from ISCII/ASCII code to EBCDIC code or 
from EBCDIC code to ISCII/ASCII code. 

To determine the ISCII/ASCII to EBCDIC or EBCDIC to ISCII/ASCII 
translation codes, see ANSI X3.26-1980 (American National 
Standard for Hollerith punch card code). Nhen translating 
EBCDIC code to ISCII/ASCII code, all ISCII/ASCII code not having 
an EBCDIC equivalent is translated to X^F*. Nhen translating 
ISCII/ASCII code to EBCDIC code, all EBCDIC code not having an 
ISCII/ASCII equivalent is translated to X'lA 1 . Because Version 
3 ISCII/ASCII uses only 7 bits in each byte, bit 0 is always set 
to 0 during EBCDIC to ISCII/ASCII translation and is expected to 
be 0 during ISCII/ASCII to EBCDIC translation. 

The XLATE macro is written: 


[svmbol] 

XLATE 

area address 



,length 

[,TO={A|l}] 


area address —RX-Type Address, symbol, decimal digit, absexp, 
(2-12), or (1) 

specifies the address of the area that is to be translated. 


length —symbol, decimal digit, absexp, (2-12), or (0) 
specifies the number of bytes to be translated. 


TO=£A|E} 

specifies the type of translation requested. If this 
operand is omitted, E is assumed. The following describes 
the characters that can be specified: 

A 

specifies that translation from EBCDIC code to 
ISCII/ASCII code is requested. 


specifies that translation from ISCII/ASCII code to 
EBCDIC code is requested. 
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APPENDIX A, STATUS INFORMATION F0LL0WIN6^AN_IMgUI/0UTPUI_0PEBAIlflN 


Following an input/output operation, the control program makes 
certain status information available to the problem program. 

This information is a 2-byte exception code, or a 16-byte field 
of standard status indicators, or both. 

Exception codes are provided in the data control block CQISAM), 
or in the data event control block (BISAM and BDAM). The data 
event control block is described below, and the exception code 
lies within the block as shown in the illustration for the data 
event control block. If a DCBD macro instruction is coded, the 
exception code in a data control block can be addressed as two 
1-byte fields, DCBEXCD1 and DCBEXCD2. For more information, see 
Pa ±cL,,.f ac j li fc /—P r..oi.d. M .ci j_C. u s A p,m i ^±i.o o. 

Status indicators are available only to the error analysis 
routine designated by the SYNAD entry in the data control block. 
A pointer to the status indicators is provided either in the 
data event control block (BSAM, BPAM, and BDAM), or in register 
0 (QISAM and QSAM). For more information, see Data Facility 
P r o d ug s jorni, za±L <m . 


DATA EVENT CONTROL BLOCK 

A data event control block is constructed as part of the 
expansion of READ and WRITE macro instructions and is used to 
pass parameters to the control program, help control the read or 
write operation, and receive indications of the success or 
failure of the operation. The data event control block is named 
by the READ or WRITE macro instruction, begins on a fullword 
boundary, and contains the information shown in the following 
illustration: 


Field Contents 


Offset from DECB 
Address CBytes) 

0 

+4 
+6 
+8 
+ 12 
+ 16 

+20 

+24 

+28 


BSAM and BPAM 

ECB 

Type 

Length 

DCB address 

Area address 

IOB address 


BISAM 

ECB 

Type 

Length 

DCB address 

Area address 

Logical record 
address 

Key address 

Exception code 
C2 bytes) 


BDAM 

ECB 1 

Type 

Length 

DCB address 

Area address 

IOB address 

Key address 
Block address 

Next address 


The control program returns exception codes in bytes +1 and 
+2 of the ECB. 
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Macro Instruction 

EDAM 

BISAM 

BPAM 

BSAM 

QISAM 

BLDL 

BSP 



X 

X 


BUILD 

BUILDRCD 

X 

X 

X 

X 

X 

CHECK 

X 

X 

X 

X 


CHKPT 

X 

X 

X 

X 

X 

CLOSE 

X 

X 

X 

X 

X 

CNTRL 




X 


DCB 

X 

X 

X 

X 

X 

DCBD 

X 

X 

X 

X 

X 

ESETL 





X 

FEOV 

FIND 



X 

X 


FREEBUF 

X 

X 

X 

X 


FREEDBUF 

X 

X 




FREEPOOL 

X 

X 

X 

X 

X 

GET 

GETBUF 

X 

X 

X 

X 

X 

GETPOOL 

X 

X 

X 

X 

X 

MSGDISP 

X 

X 

X 

X 

X 

NOTE 



X 

X 


OPEN 

X 

X 

X 

X 

X 

PDAB 

PDABD 

POINT 



X 

X 


PRTOV 

PUT 




X 

X 

PUTX 





X 

READ 

X 

X 

X 

X 


RELEX 

RELSE 

X 




X 

SETL 

SETPRT 

STON 



X 

X 

X 

SYNADAF 

X 

X 

X 

X 

X 

SYNADRLS 

X 

X 

X 

X 

X 

SYNCDEV 

X 

X 

X 

X 

X 

TRUNC 






WAIT 

X 

X 

X 

X 


WRITE 

X 

X 

X 

X 


XLATE 




X 



QSAM 


X 


X 
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APPENDIX C, DEVICE CAPACITIES 


The following information provides a guide to coding the block 
size (BLKSIZE) and logical record length CLRECL) operands in the 
DCB macro instruction. These values can be used to determine 
the maximum block size and logical record length for a given 
device, and they can be used to determine the optimum blocking 
factor when records are to be blocked. 


CARD READERS AND CARD PUNCHES 

Format F, V, or U records are accepted by readers and punches, 
but the logical record length for a card reader or card punch is 
fixed at 80 bytes. If the optional control character is 
specified, the logical record length is 81 (the control 
character is not part of the data record). If card image mode 
is used, the buffer required to contain the data must be 160 
bytes. 


PRINTERS 


The following table shows the record length that can be 
specified for the various printers. In some cases, two values 
are shown; except for the 3800, the larger of the two values 
requires that an optional feature be installed on the printer 
being used. If the optional control character is specified to 
control spacing and skipping, the record length is specified as 
one greater than the actual data length (the control character 
is not part of the data record). 

Printer Record Length 


1403 Printer 
3203 Printer 
3211 Printer 
3525 Card Punch, 

Print Feature 

3800 Printing Subsystem 


120 or 132 bytes 

132 bytes 

132 or 150 bytes 

64 bytes 

136 bytes for 10 pitch 
163 bytes for 12 pitch 
204 bytes for 15 pitch 


M ABMEI I & JMEJi miS 


3480 Magnetic Tape Subsystem 32760 bytes 
(18 track) 


DIRECT ACCESS DEVICES 

The following table shows the capacity of direct access devices 
by track, cylinder, and total capacity in bytes. 
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Device 

Maximum Block 
Size/Track 
(Note 1) 

Tracks per 
Cylinder 

Number of 
Cylinders 
(Notes 1 and 

2) 

Track 

Capacity 

(Bytes) 

2305-2 

14660 

8 

96 


14858 6 

3330/3333 
(Model l) 3 

13030 

19 

404 


13165 6 

3330/3333 
(Model 11) 

13030 

19 

808 


13165 6 

3340/3344 4 

8368 

12 

696 


8535 6 

3350 

19069 

30 

555 


19254 6 

3375 

32760 s 

12 

959 


36000 6 

3380 (Models 
A04, AA4, and 
B04 ) 

32760 s 

15 

885 


47968 6 

3380 (Models 
AD4 and BD4) 

32760 s 

15 

885 


47968 6 

3380 (Models 
AE4 and BE4) 

32760 s 

15 

1770 


47968 6 


1 Capacity 

indicated 

in bytes (when 

R0 

is used by the IBM 


programming system). 

2 Excludes alternate cylinders. 

3 The Mass Storage System CMSS) virtual volumes assume the 
characteristics of the 3330/3333, Model 1. 

4 The 3344 is functionally equivalent to the 3340 Model 70. 

5 The largest record that can be written on a track for the 
3375 is 35616 and for all 3380 models is 47476. However, 
for these devices the largest block size supported by the 
standard access methods is 32760. 

6 This value is different from the maximum block size per 
track because each block on the track includes an overhead 
for this device. 

Each record written on a direct access device requires some 
*device overhead.* The term device overhead means the space 
required by the device for address markers, count areas, gaps 
between the count, key, and data areas, and gaps between blocks. 
The following calculations can be used to compute the number of 
bytes required for each data block including the space required 
for device overhead. Note that any fraction of a byte must be 
ignored. For example, if the calculation results in 15.644 
bytes, 15 bytes must be used to determine track capacity. 
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Device 

2305-2 

3330/3333 (Model 1 or 
ll ) 3 

3340/3344 

3350 

3375 

3380 (Models A04, AA4, 
and B04) 

3380 (Models AD4 and BD4) 
3380 (Models AE4 and BE4) 


Blocks 
With Keys 

289+KL 1 + DL 2 

191+KL+DL 


242+KL+DL 

267+KL+DL 

224+((KL+191)/32)(32)+ 

((DL+191)/32)(32) 

256+((KL+267)/32)(32)+ 
C(DL+267)/32)(32) 

256+((KL+267)/32)(32)+ 
((DL+267)/32)(32) 

256+((KL+267)/32)(32)+ 

((DL+267)/32)(32) 


Blocks 

Without Keys 

198+DL 

135+DL 

167+DL 

185+DL 

224+((DL+191)/32)(32) 
256+((DL+267)/32)(32) 
256+((DL+267)/32)(32) 
256+((DL+267)/32)(32) 


1 KL is key length. 

2 DL is data length. 

3 The Mass Storage System (MSS) virtual volumes assume the 
characteristics of the 3330/3333, Model 1. 

When track overflow is used or variable-length spanned records 
are written, the size of a data block or logical record can 
exceed the capacity of a single track on the direct access 
device used. 
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APPENDIX D, DCB EXIT LIST FORMAT AND CONTENTS 


The following shows the format and contents that must be 
supplied by the problem program when the EXLST operand is 
specified in a DCB macro instruction. The exit list must begin 
on a fullword boundary and each entry in the list requires one 
fullword. 


Entry Type 

Hex 

Code 

3-Byte Address—Purpose 

Inactive entry 

00 

Ignore the entry; it is not active. 

Input header label exit 

01 

Process a user input header label. 

Output header label 
exit 

02 

Create a user output header label. 

Input trailer label 
exit 

03 

Process a user input trailer label. 

Output trailer label 
exit 

04 

Create a user output trailer label. 

Data control block exit 

05 

Take a data control block exit. 

End-of-volume exit 

06 

Take an end~of-volume exit. 

JFCB exit 

07 

JFCB address for RDJFCB and OPEN TYPE=J SVCs. 


08 

Reserved. 

I/O error processing 
exit 

09 

User option to process I/O errors. 

User totaling area 

0A 

Address of beginning of user's totaling area. 

Block count exit 

0B 

Take a block-count-unequal exit. 

Defer input trailer 
label 

OC 

Defer processing of a user input trailer label from 
end-of-data until closing. 

Defer nonstandard input 
trailer label 

0D 

Defer processing a nonstandard input trailer label 
on magnetic tape unit from end-of-data until 
closing (no exit routine address). 


0E-0F 

Reserved. 

FCB image 

10 

Define an FCB image. 

DCB abend exit 

11 

Examine the abend condition and select one of 
several options. 

QSAM parallel input 

12 

Address of the PDAB for which this DCB is a member. 

Allocation retrieval 
list 

13 

Retrieve allocation information for one or more 
data sets with RDJFCB. 


14 

Reserved. 

JFCBE exit 

15 

Take an exit during OPEN to allow user to examine 
JCL=specified setup requirements for a 3800 
printer. 


16 

Reserved. 
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Entry Type 

Hex 

Code 

3-Byte Address—Purpose 

OPEN/EOV nonspecific 
tape volume mount 

17 

Option to specify a tape volume serial number. 

OPEN/EOV volume 
security/verification 

18 

Verify a tape volume and some security checks. 


19-7 F 

Reserved. 

Last entry 

80 

Treat this entry as the last entry in the list. 
This code can be specified with any of the above 
but must always be specified with the last entry. 


The list can be dynamically shortened during execution by 
setting the high-order bit of the word to a value of 1. An 
entry in the list can be made inactive dynamically by setting 
the high-order byte of the word to a value of hexadecimal 00. 

Nhen control is passed to an exit routine, the general registers 
contain the following information: 


Register Contents 

0 Variable; the contents depend on the exit routine 

used. 

1 The three low-order bytes contain either the address 

of the DCB currently being processed or, when certain 
exits are taken, the address of the exit parameter 
list. These exits are: usei—label exits (X 1 01 1 - 1 04 f ), 
deferred nonstandard input trailer exit CX’OD 1 ), and 
DCB abend exit (X'll 1 ) . 

2-13 Contents prior to execution of the macro instruction. 

14 Return address (must not be altered by the exit 
routine). 

15 Address of the exit routine entry point. 

The conventions for saving and restoring registers are as 

follows: 

• The exit routine must preserve the contents of register 14. 
It need not preserve the contents of other registers. The 
control program restores registers 2 through 13 before 
returning control to the problem program. 

• The exit routine must not use the save area whose address is 
in register 13, because this area is used by the control 
program. If the exit routine calls another routine or 
issues supervisor or data management macro instructions, it 
must provide the address of a new save area in register 13. 

For a detailed description of each exit list processing option, 

see Data Administration Guide . 
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APPENDIX E. CONTROL CHARACTERS 


Each logical record, in all record formats, can contain an 
optional control character. This control character is used to 
control stacker selection on a card punch or card read punch, or 
it is used to control printer spacing and skipping. If a record 
containing an optional control character is directed to any 
other device, it is considered to be the first data byte, and it 
does not cause a control function to occur. 

In format-F and format-U records, the optional control character 
must be in the first byte of the logical record. 

In format-V or format-D records, the optional control character 
must be in the fifth byte of the logical record, immediately 
following the record descriptor word of the record. 

Two control character options are available. A control 
character option is selected by coding the appropriate character 
In the RECFM operand of the DCB macro instruction. If either 
option is specified in the data control block, a control 
character must be included in each record, and other spacing or 
stacker selection options also specified in the data control 
block are ignored. 


MAgHlMEJEQBE 


The record format field in the data control block indicates that 
the machine code control character has been placed in each 
logical record. If the record is written, the appropriate byte 
must contain the command code bit configuration specifying both 
the write and the desired carriage or stacker select operation. 
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The machine code 

Print—Then 
Act 

X'Ol* 

X 1 09 1 
X ? ll* 

X'89 f 
X'91 f 
X'99 f 
X 1 A1 1 
X 1 A9 1 
X 1 B1 1 
X 1 B9 1 
X'Cl 1 
X*C9 1 
X 1 D1 1 
X f D9 1 
X 1 El 1 


control characters ■ 

Action 

Print only (no 
space) 

Space 1 line 
Space 2 lines 
Space 3 lines 
Skip to channel 1 
Skip to channel 2 
Skip to channel 3 
Skip to channel 4 
Skip to channel 5 
Skip to channel 6 
Skip to channel 7 
Skip to channel 8 
Skip to channel 9 
Skip to channel 10 
Skip to channel 11 
Skip to channel 12 


r a printer are: 

Act Immediately 
Without Printing 

X* OB 1 
X f 13 1 
X 1 IB 1 
X f 8B f 
X f 93 1 
X* 9B 1 
X 1 A3 1 
X* AB 1 
X f B3 1 
X f BB* 

X'CS 1 
X 1 CB 1 

X * D3 1 
X 1 DB 1 

X I E3 1 


The machine code control characters for a card read punch device 
are as follows: 

Control Code Action 

X'01» Select stacker 1 

X*41 * Select stacker 2 

X'SA 11 Change from line 

mode to page mode 

X'Sl* Select stacker 3 


1 The 3800 Model 3 all-points-addressable mode uses this code 
to change from compatibility to page mode. 

Other command codes for specific devices are contained in IBM 
System Reference Library publications describing the control 
units or devices. 


f€ 
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In place of machine code, control characters defined by the 
International Organization for Standardization (ISO), American 
National Standards Institute (ANSI), or the Federal Information 
Processing Standards (FIPS) can be specified. These characters 
must be represented in EBCDIC code. 

International Organization for Standardization (ISO), American 
National Standards Institute (ANSI), or Federal Information 
Processing Standards (FIPS) control characters are as follows: 


Code 

b 


Code 

V 

w 

X 1 5A 11 
i 


Action before Printing a Line 
Space one line (blank code) 
Space two lines 
Space three lines 
Suppress space 


1 

Skip 

to 

channel 

1 

2 

Skip 

to 

channel 

2 

3 

Skip 

to 

channel 

3 

4 

Skip 

to 

channel 

4 

5 

Skip 

to 

channel 

5 

6 

Skip 

to 

channel 

6 

7 

Skip 

to 

channel 

7 

8 

Skip 

to 

channel 

8 

9 

Skip 

to 

channel 

9 

A 

Skip 

to 

channel 

10 

B 

Skip 

to 

channel 

11 

C 

Skip 

to 

channel 

12 


Action after Punching a Card 

Select punch pocket 1 

Select punch pocket 2 

Change from line mode to page mode 


The 3800 Model 3 all-points-addressable mode uses this code 
to change from compatibility to page mode. 

These control characters include those defined by ANSI FORTRAN. 
If any other character is specified, it is interpreted as 'b* or 
V, depending on the device being used; no error indication is 
returned. 
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APPENDIX F. DATA CONTROL BLOCK SYMBOLIC FIELD NAMES 


The following describes data control block fields that contain 
information that defines the data characteristics and device 
requirements for a data set. Each of the fields described shows 
the values that result from specifying various options in the 
DCB macro instruction. These fields can be referred to by the 
problem program through the use of a DCBD macro instruction that 
creates a dummy control section CDSECT) for the data control 
block. Fields that contain addresses are 4 bytes long and are 
aligned on a fullword boundary. If the problem program inserts 
an address into a field, the address must be inserted into the 
low-order 3 bytes of the field without changing the high-order 
byte. 

The contents of some fields in the data control block depend on 
the device and access method being used. A separate description 
is provided when the contents of the field are not common to all 
device types and access methods. 
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DAXA_CO_NT_ROL BLOCK—COMMON FIELDS 


Bytes and Field 

Offset Alignment Name Description 


26(1A) 2 


40(28) 8 

40(28) 2 

42(2A) 2 

45(2D) .3 

48(30) 1 


50(32) ..2 


DCBDSORG 


1 .'. 

.1 . 

. .1 . 

. . .X XX. . 

. 1 . 

.1 


DCBDDNAM 

DCBTIOT 

DCBMACRF 


DCBDEBA 

DCBOFLGS 

. . .1 - 

_ 1 . . . 

. 0 . 

. 1 . 


DCBMACR 
(Before 
OPEN) 


Data set organization. 

Code 

IS Indexed sequential. 

PS Physical sequential. 

DA Direct organization. 

Reserved bits. 

PO Partitioned organization. 

U Unmovable—the data set contains 

location-dependent information. 

Eight-byte name of the data definition 
statement that defines the data set associated 
with this DCB. (Before DCB is opened.) 

(After DCB is opened.) Offset from the TIOT 
origin to the TIOELNGH field in the TIOT entry 
for the DD statement associated with this DCB. 

This field may only be referenced during 
and after OPEN. It is common to all uses 
of the DCB and is created by moving the 
DCBMACR field into this area. 

(After DCB is opened.) Address of the 
associated DEB. 


Flags used by open routine. 

OPEN has completed successfully. 

Set to 1 by problem program to indicate 
concatenation of unlike attributes. 

Set to 0 by an I/O support function when 
that function takes a user exit. It is 
set to 0 to inhibit other I/O support 
functions from processing this DCB. 

Set to 1 on return from the user exit to 
the I/O support function that took the exit. 


Macro instruction reference before OPEN. 

Major macro instructions and various options 
associated with them. Used by the open 
routine to determine access method. Used by 
the access method executes in conjunction 
with other parameters to determine which load 
modules are required. This field is moved to 
overlay part of DCBDDNAM at open time and 
becomes the DCBMACRF field. 


This field is common to all uses of the DCB, 
but each access method must be referenced for 
its meaning. 
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Bytes and Field 
Offset Alignment Name 


Description 


20(14) 

1 

DCBBUFNO 

Number of buffers required for this data set. 




May 

range from 0 to a maximum of 255. 

21(15) 

.3 

DCBBUFCB 

Address of buffer pool control block. 

24(18) 

2 

DCBBUFL 

Length of buffer. May range from 0 to a 
maximum of 32760. 

32(20) 

1 

DCBBFALN 


Buffer Alignment: 



.XX 


Reserved bits. 



.10 

D 

Doubleword boundary. 



.01 

F 

Fullword not a doubleword boundary, 
coded in the DCB macro instruction. 

32(20) 

1 

DCBBFTEK 


Buffering technique: 



.XXX .... 


Reserved bits. 



.1.0 _ 

S 

Simple buffering. 



.110 _ 

A 

QSAM locate mode processing of spanned 
records: OPEN is to construct a record 
area if it automatically constructs 
buffers. 



.010 _ 

R 

BSAM create BDAM processing of unblocked 


spanned records: Software track 
overflow. OPEN forms a segment work 
area pool and stores the address of the 
segment work area control block in 
DCBECBW. However, WRITE uses a 
segment work area to write a record as 
one or more segments. 

BSAM input processing of unblocked 
spanned records with keys: Record offset 
processing. READ reads one record 
segment into the record area. The first 
segment of a record is preceded in the 
record area by the key. Subsequent 
segments are at an offset equal to the 
key length. 

.... x... Reserved bit. 

.... 1... XLRI being used to process a RECFM=DS or 

RECFM=DBS format tape data set CQSAM). 

33(21) .3 DCBEODAD End-of-data address. Address of a 

usei—provided routine to handle end-of-data 
conditions. 


/if 
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Bytes and Field 
Offset Alignment Name 


Description 


36(24) 1 


37(25) .3 

42(2A) 2 


50(32) ..2 


51(33) 


DCBRECFM 


001 . 
10 . . 
01 . . 
11 . . 
. . 1 . 
. . .1 


1 . . . 


. 10 . 
. 01 . 
. 00 . 
. . .1 


DCBEXLST 


DCBMACRF 


DCBMACR 
(Before 
OPEN) 


Byte 1 

00 . . 

. . 1 . 



Byte 2 

00 .. 

. .1 . 

_ 1 . . . 



. . .1 


Record format. 

Code 

D Format-D record. 

F Fixed record length. 

V Variable record length. 

U Undefined record length. 

T Track overflow. 

B Blocked records. May not occur with 

undefined (U). 

S Fixed length record format: Standard 

blocks. (No truncated blocks or 
unfilled tracks are embedded in the 
data set.) Variable length record 
format: Spanned records. 

A ISO/ANSI/FIPS control character. 

M Machine control character. 

No control character. 

Key length (KEYLEN) was specified 
in the DCB macro instruction. This 
bit is inspected by the Open to 
prevent overriding a specification 
of KEYLEN=0 by a nonzero specifi¬ 
cation in the JFCB or data set 
label. 

Exit list. Address of a usei—provided exit 
list control block. 

Macro instruction reference after OPEN. 

Contents and meaning are the same as those of 
the DCBMACR field in the foundation segment 
before OPEN. 

Major macro instructions and various options 
associated with them. Used by the Open 
routine to determine access method. Used by 
the access method executes in conjunction 
with other parameters to determine which load 
modules are required. 

Code 

BSAM—Input 

Always zero for BSAM. 

R READ 

Reserved bits. 

P POINT (which implies NOTE). 

C CNTRL 

MAM=0 u± pm± 

Always zero for BSAM. 

W WRITE 

L Load mode BSAM (create BDAM data 

set) . 

P POINT (which implies NOTE). 

C CNTRL 

BSAM create BDAM processing of 
unblocked spanned records, with 
BFTEK=R specified: The user f s program 
has provided a segment work area pool 
and stored the address of the segment 
work area control block in DCBEOBW. 
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Bytes and 

Field 

Offset 

Alignment 

Name 

Byte 1 

50(32) 


0 . 

.1. 

. .0. 

. . .1 _ 

_ 1 . . . 

. 1 . 

. 1 


Byte 2 

51C 33) 0. 

.1. 

. .0 . 

. . .1 _ 

_ 1 . . . 

.1. 

.1 

50(32) Byte 1 

00 . 

. .1 . 

. 1 . . 

...X x.xx 

51(33) Byte 2 

00 . 

. .1. 

. 1 . . 

...X x.xx 


Description 

QSAM— Input 
Always zero for QSAM. 
G GET 

Always zero for QSAM. 
M Move mode. 

L Locate mode. 

C CNTRL 

D Data mode. 

QSAM—Output 
Always zero for QSAM. 
P PUT 

Always zero for QSAM. 
M Move mode. 

L Locate mode. 

C CNTRL 

D Data mode. 

B E AU— I de m 

Always zero for BPAM. 
R READ 

P POINT (which implies 

Reserved bits. 

BPAM—Output 
Always zero for BPAM. 
N WRITE 

P POINT (which implies 

Reserved bits. 


(i 


NOTE) . 


NOTE) . 


DIRECT ACCESS STORAGE DEVICE INTERFACE 


Offset 

Bytes and 
Alignment 

Field 

Name 

Description 

16(10) 

1 

DCBKEYLE 

Key length of the data set. 

17(11) 

.1 

DCBDEVT 

Device type. 



0010 0111 
0010 1001 

0010 1101 
0010 1010 
0010 1011 
0010 1100 
0010 1110 

2305 Disk Storage Facility, Model 2 
3330 Disk Storage, Model 1, or 

Mass Storage System (MSS) 
virtual volume. 

3330 Disk Storage, Model 11. 
3340/3344 Disk Storage. 

3350 Direct Access Storage. 

3375 Direct Access Storage. 

3380 Direct Access Storage. 


€ 
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MAGNETIC TAPE INTERFACE 


Bytes and 
Offset Alignment 

16 C10) 1 


17(11) .1 

18(12) ..1 


CARD READER, CARD 

Bytes and 
Offset Alignment 

16(10) 1 


17(11) .1 


PRINTER INTERFACE 


Field 

Name Description 


DCBTRTCH Tape recording technique for 7-track tape. 


0010 0011 
0011 1011 
0001 0011 
0010 1011 


Code 

E Even parity. 

T BCD/EBCDIC translation. 

C Data conversion. 

ET Even parity and translation. 


DCBDEVT Device type. 


1000 

0011 

3400 

series magnetic tape 

unit. 


1000 

1000 

3480 

Magnetic Tape 

Subsystem 


DCBDEN 

Tape 

density—3400 

series 

magnetic 

tape 



units. 






Code 

7-track 

9-track 

18-track 

0100 

0011 

1 

556 BPI 

N/A 


N/A 

1000 

0011 

2 

800 BPI 

800 

BPI 

N/A 

1100 

0011 

3 

N/A 

1600 

BPI 

N/A 

1101 

0011 

4 

N/A 

6250 

BPI 

N/A 


PUNCH INTERFACE 


Field 

Name Description 

DCBMODE,DCBSTACK 


1000 


Code 

C 

Column binary mode 

0100 

. . . « 

E 

EBCDIC mode. 

• • • • 

xxxx 


Stacker selection. 

• • • • 

0001 

1 

Stacker 1. 

• • • • 

0010 

2 

Stacker 2. 

. . . . 

0011 

3 

Stacker 3. 

DCBDEVT 

Device type. 

0100 

0001 

2540 

Card Reader 

0100 

0010 

2540 

Card Punch 

0100 

0100 

2501 

Card Reader 

0100 

0110 

3505 

Card Reader 

0100 

1100 

3525 

Card Punch 
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Bytes and Field 

Offset Alignment Name Description 

16(10) 1 DCBPRTSP Number indicating normal printer spacing. 

Code 

0000 0000 0 No spacing. 

0000 0001 1 Space one line. 

0001 0001 2 Space two lines. 

0001 1001 3 Space three lines. 

17(11) .2 DCBDEVT Device type. 

Byte 0 

0100 1000 1403 Printer 

0100 1001 3211 Printer 

0100 1011 3203 Printer 

0100 1110 3800 Printing Subsystem 

Test-foi—printer—overflow mask (PRTOV 
mask). If printer overflow is to be 
tested for/ the PRTOV macro instruction 
sets the mask as follows: 

Code 

9 Test for channel 9 overflow. 

12 Test for channel 12 overflow. 

Reserved. 

Bits to identify presently active table 
reference character when 3800 printer is 
operating under QPTCD=J. 


Byte 1 
0010 0000 
0001 0000 

19(13) ...1 DCBPRBYT 

XXXX XX.. 

. 11 


\ 


y 


4 

y 
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ACCESS METHOD INTERFACE 


BSAM, BPAM Interface 


Bytes and Field 
Offset Alignment Name 

52(34) 1 DCBOPTCD 


1 . . . 
. 1 . . 


. .1 . 


1 . . . 

. 1 . . 

. . 1 . 
. . .1 


57(39) .3 DCBSYNAD 


62(3E) ..2 DCBBLK5I 


72(48) 1 DCBNCP 


Description 

Option codes. 

Code 

W Write-validity check (DASD). 

U Allow a data check caused by an invalid 

character. (1403 printer with UCS 
feature.) 

Window processing requested. (MSS) 

B Treat EOF and EOV labels as EOV labels 

which allows SL or AL tapes to be read 
out of order. (Magnetic tape.) 

C Chained scheduling. 

Input Tape Files: Requests the 
testing for and bypassing of any 
embedded DOS checkpoint records 
encountered. (This code can only 
be specified in a JCL statement.) 

Q An I SCII/ASCII data set is 

to be processed. 

Z Magnetic tape devices: Use reduced 

error recovery procedure. 

T BSAM only: user totaling. 

J Specifies that the first data byte 

in the output data line will be a 
3800 table reference character for 
dynamic selection of character sets. 

Address of user's synchronous error 
routine to be entered when a permanent 
error occurs. 

Maximum block size. Maximum value: 32760. 

The maximum block size for Version 3 ISO/ANSI/FIPS 
is 2048. An attempt to process from a Version 
3 tape results in a label validation installation 
exit being taken. 

For fixed-length blocked record format, it 
must be a multiple of the length given in 
DCBLRECL. For variable-length records, this 
must include the 4-byte block length field. 

For more information about ISO/ANSI/FIPS 

spanned records, see 

Data Administration Guide . 

Number of channel programs. Number of 
READ or WRITE requests that may be issued 
prior to a CHECK. Maximum number: 99. 
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Offset 

Bytes and 
Alignment 

Field 

Name 

Description 

80(50) 

1 

DCBUSASI/ 

DCBLBP 

ISCII/ASCII tape. 

Block prefix. 



.1. 

Block prefix is a 4-byte field containing 
the block length. 

81(51) 

.1 

DCBBUFOF 

Block prefix length. 

82(52) 

. .2 

DCBLRECL 

Logical record length. For fixed-length 
blocked record format, the presence of 
DCBLRECL allows BSAM to read truncated 
records. For undefined records, this field 
contains block size. 
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QSAM Interface 


Bytes and Field 
Offset Alignment Name 

52(34) 1 DCBOPTCD 


1 . . . 
. 1 . . 


• . 1 . 

. . .1 


1 . . . 

. 1 . . 

. . 1 . 

. . .1 


57(39) .3 DCBSYNAD 


62(3E) ..2 DCBBLKSI 


80(50) 1 DCBUSASI/ 

DCBLBP 

.1 . 


Description 

Option codes. 

Code 

W Write-validity check (DASD). 

U Allow a data check for an invalid 

character. (1403 printer with UCS 
feature.) Window processing requested. 

(MSS) 

B Treat EOF and EOV labels as EOV 

labels, which allows SL or AL tapes 
to be read out of order (magnetic 
tape). 

C Chained scheduling. 

H Input Tape Files: Requests the 

testing for and bypassing of any 
embedded DOS checkpoint records 
encountered. (This code can only 
be specified in a JCL statement.) 

Q An ISCII/ASCII data set is to 

be processed. 

Same as DCBOPTQ. BSAM only. 

Z Magnetic tape devices. Use reduced 

error recovery procedure. 

T User totaling. 

J Specifies that the first data byte in 

the output data line will be a 3800 
table reference character. 

Address of the user's synchronous error 
routine to be entered when a permanent error 
occurs. 

Maximum block size. Maximum value: 32760. 

The maximum block size for Version 3 ISO/ANSI/FIPS 
is 2048. An attempt to process from a Version 
3 tape results in a label validation installation 
exit being taken. 

For fixed-length blocked record format, 
it must be a multiple of DCBRECL. For 
variable-length records this must include 
the 4-byte block length field provided by 
the access method. 

ISCII/ASCII tape. 

Block prefix. 

Block prefix is a 4-byte field containing 
the block length. (BUF0FF=L was specified). 


81(51) .1 


DCBBUF0F Block prefix length. 
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Bytes and Field 

Offset Alignment Name Description 

82(52) ..2 DCBLRECL Format-F records: Record length. 

Format-!) records: Block size. 

Format-V records — 

• Unspanned record format — 

GET: PUTX; record length. 

PUT: Actual or maximum record length. 

• Spanned record format — 

Locate mode — 

— GET: Segment length. 

— PUT: Actual or minimum segment 
length. 

Logical record interface — 

— Before OPEN: Maximum logical record 
length. 

— After GET: Record length. 

- Before PUT: Actual or maximum 
record length. 

— ISO/ANSI/FIPS spanned record format 
with XLRI; length of the record area 
in 'K* units (1024). 

Move mode — 

— GET: Record length. 

— PUT: Actual or maximum record 
length. 

• Data mode, GET — 

Data records up to 32752 bytes: Data 
length. 

Data records exceeding 32752 bytes: 

- Before OPEN: X'800Q f 

— After OPEN: Data length. 

• Output mode, PUTX (output data set): 

Segment length. 

84(54) 1 DCBEROPT Error option. Disposition of permanent errors 

if the user returns from a synchronous error 
exit (DCBSYNAD), or if the user has no 
synchronous error exit. 




100. 

010. 

001. 

...X xxxx 

ACC: Accept. 

SKP: Skip. 

ABE: Abnormal end of task. 

Reserved bits. 

85(55) 

3 

DCBCNTRA 

Address of CNTRL module. 

88(58) 

2 


Reserved. 

90(5A) 

2 

DCBPRECL 

Block length, maximum block length 
data length. 

92(50 

4 

DCBE0B 

Address of end of block module. 
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DATA CONTROL BLOCK— ISAM 



Bytes and 

Field 


Offset 

Alignment 

Name 

Description 

16(10) 

1 

DCBKEYL E 

Key length. 

17(11) 

.1 

DCBDEVT 

Device type. 



0000 0111 

2305 Disk Storage Facility, Model 2. 



0000 1001 

3330 Disk Storage, Model 1, or 

Mass Storage System (MSS) 
virtual volume. 



0000 1101 

3330 Disk Storage, Model 11. 



0000 1010 

3340 Disk Storage. 



0000 1011 

3350 Direct Access Storage. 



0010 1100 

3375 Direct Access Storage. 



0010 1110 

3380 Direct Access Storage, all models. 

20(14) 

1 

DCBBUFNO 

Number of buffers required for this data set 
0-255. 

21(15) 

.3 

DCBBUFCB 

Address of buffer pool control block. 

24(18) 

2 

DCBBUFL 

Length of buffer: 0 - 32760 bytes. 

32(20) 

1 

DCBBFALN 

Buffer alignment: 




Code 



.XX 

Reserved bits. 



.10 

D Doubleword boundary. 



.01 

F Fullword not a doubleword boundary. 




coded in the DCB macro instruction. 



.11 

F Fullword not a doubleword boundary. 




coded in the DD statement. 

33(21) 

.3 

DCBEODAD 

Address of a use?—provided routine to handle 
end-of-data conditions. 

36(24) 

1 

DCBRECFM 

Record format. 




Code 



10. 

F Fixed length records. 



10. 

V Variable length records. 



11. 

U Undefined length records. 



. .1. 

T Track overflow. 



. . .1 _ 

B Blocked records. May not occur with 


truncated blocks 
in the 


undefined (U). 

1... S Standard records. No 

or unfilled tracks are embedded 
data set. 

.10. A ISO/ANSI/FIPS control character. 

.01. M Machine control character. 

.00. No control character. 

...1 Key length CKEYLEN) was specified in 

the DCB macro instruction; this bit is 
inspected by the open routine to prevent 
overriding a specification of KEYLEN=Q 
by a nonzero specification in the JFCB 
or data set label. 


37(25) .3 

42(2A) ..2 


DCBEXLST Exit list. Address of a user-provided list. 

DCBMACRF Macro instruction reference after OPEN: 


Contents and meaning are the same as those 
of the DCBMACR field before OPEN. 
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Bytes and Field 

Offset Alignment Name Description 

50(32) ..2 DCBMACR Macro instruction reference before OPEN: 

specifies the major macro instructions and 
various options associated with them. Used 
by the Open routine to determine access 
method. Used by the access method executors 
in conjunction with other parameters to 
determine which load modules are required. 


50(32) 


51(33) 

50(32) 


51(33) 


52(34) 1 


53(35) .1 


54(36) ..1 

55(37) ...1 


Byte 

1 

Code 

BISAM 

00.0 

0. . . 


Always zero for BISAM. 

. .1. 

. . . . 

R 

READ 

• • • • 

.1. . 

S 

Dynamic buffering. 

• • • # 

. .1. 

C 

CHECK 

.... 

. . .x 


Reserved bit. 

Byte 

2 


BISAM 

00.0 

0000 


Always zero for BISAM. 

. .1. 

.... 

w 

WRITE 

Byte 

1 


01 SAM 

0.0. 

. 0. . 


Always zero for QISAM. 

.1. . 

.... 

G 

GET 

. . .1 

.... 

M 

Move mode of GET. 

.... 

1 ... 

L 

Locate mode for GET. 

.... 

. .XX 


Reserved bits. 

Byte 

2 


01 SAM 

1 . . . 

.... 

S 

SETL 

.1 . . 

* . . . 

P 

PUT or PUTX. 

. .0. 

.... 


Always zero for QISAM. 

. . .1 

.... 

M 

Move mode of PUT. 

.... 

1. . . 

L 

Locate mode of PUT. 

• . . . 

.1. . 

U 

Update in place (PUTX). 

.... 

. .1 . 

K 

SETL by key. 

.... 

. . .1 

I 

SETL by ID. 

DCB0PTCD 

Option codes: 

1 . . . 


Code 

N 

Write-validity check. 

.1 . . 

.... 

U 

Full-track index write. 

. .1 . 

.... 

M 

Master indexes. 

. . .1 

.... 

I 

Independent overflow area. 

.... 

1. . . 

Y 

Cylinder overflow area. 

.... 

. .1 . 

L 

Delete option. 

. . . . 

. . .1 

R 

Reorganization criteria. 

.... 

.x. . 


Reserved bit. 

DCBMAC 

Extension of the DCBMACRF field for ISAM 

xxxx 

. . .X 

Code 

Reserved bits. 

.... 

1. .. 

U 

Update for read. 

.... 

.1. . 

u 

Update type of write. 

.... 

. .1 . 

A 

Add type of write. 

DCBNTM 

Number of tracks that determines the 



development of a master index. 

Maximum permissible value: 99. 


DCBCYLOF The number of tracks to be reserved on each 

prime data cylinder for records that overflow 
from other tracks on that cylinder. To 
determine how to calculate the maximum number, 
see the section on allocating space for an 
ISAM data set in Data Administration 
Gujdg. 
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Offset 

Bytes and 
Alignment 

Field 

Name 

Description 

56(38) 

4 

DCBSYNAD 

Address of user's synchronous error routine 
to be entered when uncorrectable errors are 
detected in processing data records. 

60(30 

2 

DCBRKP 

Relative position of the first byte of the 
key within each logical record. Maximum 
permissible value: logical record length 
minus key length. 

62(3E) 

. .2 

DCBBLKSI 

Block size. 

64(40) 

4 

DCBMSWA 

Address of the storage work area reserved for 
use by the control program when new records 
are being added to an existing data set. 

68(44) 

2 

DCBSMSI 

Number of bytes in area reserved to hold the 
highest level index. 

70(46) 

2 

DCBSMSW 

Number of bytes in work area used by control 
program when new records are being added to 
the data set. 

72(48) 

1 

DCBNCP 

Number of copies of the READ-WRITE (type K) 
channel programs that are to be established 
for this data control block (99 maximum). 

73(49) 

.3 

DCBMSHI 

Address of the storage area holding the 
highest level index. 

80(50) 

1 

DCBEXCD1 

First byte in which exceptional conditions 
detected in processing data records are 
reported to the user. 



1. 

.1. 

. .1. 

. . .1 _ 

- 1 . . . 

.1 . . 

..1. 

.1 

Lower key limit not found. 

Invalid device address for lower limit 

(QISAM only). Record length check (BISAM only). 

Space not found. 

Invalid request. 

Uncorrectable input error. 

Uncorrectable output error (BISAM only). 

Block could not be reached (BISAM only). 

Block could not be reached (input) (QISAM only). 
Overflow record (BISAM only). 

Block could not be reached (update) (QISAM only) 
Duplicate record (BISAM only) 

81(51) 

.1 

DCBEXCD2 

Second byte in which exceptional conditions 
detected in processing data records are 
reported to the user (QISAM only). 



1. 

.1. 

. .1. 

. . .1 _ 

_ 1 . . . 

. XXX 

Sequence check. 

Duplicate record. 

DCB closed when error was detected. 

Overflow record. 

PUT: length field of record larger than 
length indicated in DCBLRECL. 

Reserved bits. 

82(52) 

. .2 

DCBLRECL 

Logical record length for fixed-length record 


formats. Variable-length record formats: 
maximum logical record length or an actual 
logical record length changed dynamically 
by the user when creating the data set. 
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Bytes and Field 

Offset Alignment Name Description 

197(C5) .1 DCBOVDEV Device type for independent overflow. 

0000 0111 2305 Disk Storage Facility, Model 2. 

0000 1001 3330 Disk Storage, Model 1, or 

Mass Storage System (MSS) 
virtual volume. 

0000 1101 3330 Disk Storage, Model 11. 

0000 1010 3340/3344 Disk Storage. 

0000 1011 3350 Direct Access Storage. 

0010 1100 3375 Direct Access Storage. 

0010 1110 3380 Direct Access Storage. 
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DATA CONTROL BLOCK—EDAM 


Bytes and Field 

Offset Alignment Name Description 


16(10) 1 
17(11) .3 

20(14) 1 

21(15) .3 

24(18) 2 

32(20) 1 


32(20) 1 


36(24) 1 


37(25) .3 


DCBKEYLE 

DCBREL 

DCBBUFNO 

DCBBUFCB 

DCBBUFL 

DCBBFALN 

.xx 

. 10 

. 01 

. 11 

.X . X X . . . 

DCBBFTEK 

. . x. 

. .1 . 


DCBRECFM 


10 . . 
01 . . 
11 . . 
. . 1 . 
. . .1 


1 . . . 
. 00 . 
. . .1 


DCBEXLST 


Key length. 

Number of relative tracks or blocks in this 
data set. 

Number of buffers required for this data set. 
May range from 0 to 255. 

Address of buffer pool control block or of 
dynamic buffer pool control block. 

Length of buffer. May range from 0 to 32760. 

Buffer alignment: 

Reserved bits 
Doubleword boundary. 

Fullword not a doubleword boundary, coded in 
the DCB macro instruction. 

Fullword not a doubleword boundary, coded in 
the DD statement. 

Reserved bits. 

Buffering technique. 

Reserved bit. 

R Unblocked spanned records: 

Variable spanned record format. 

Open forms a segment work area pool. 

The number of segment work areas 
is determined by DCBBUFNO (OPEN 
stores the address of the segment 
work area control block in DCBDYNB 
if dynamic buffering is not 
used or in the dynamic buffer pool 
control block (see DCBBUFCB) if 
dynamic buffering is used. WRITE uses 
a segment work area to write a record 
as one or more segments. READ uses a 
segment work area to read a record that 
was written as one or more segments. 

Record format. 

Code 

F Fixed record length. 

V Variable record length. 

U Undefined record length. 

T Track overflow. 

B Blocked (allowed only with V). 

S Spanned (allowed only with V). 

Always zeros. 

Key length (KEYLEN) was specified in 
the DCB macro instruction. This bit 
is inspected by the open routine to 
prevent overriding a specification of 
KEYLEN=0 by a nonzero specification 
in the JFCB or data set label. 

Exit list. Address of a usei—provided exit 
list control block. 
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Bytes and 
Offset Alignment 

42(2A) ..2 

50(32) ..2 

50(32) 


51(33) 


52(34) 1 


56(38) 4 

62(3E) ..2 

81(51) .3 
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Field 

Name 

DCBMACRF 


DCBMACR 


Byte 1 

00 . 

. .1 . 

. . .1 _ 

_ 1 . . . 

. 1 . . 

. 1 . 

. 1 

Byte 2 

00 . 

. .1 . 

. . .1 _ 

_ 1 . . . 

.x. . 

.1. 

.1 


DCBOPTCD 


1 . 

.1 . 

. .1 . 

. . .1 _ 

_ 1 . . . 

. 1 . . 

. 1 . 

.1 

DCBSYNAD 


Description 

Macro instruction reference after OPEN. 

Contents and meaning are the same as 
DCBMACR before OPEN. 

Macro instruction reference before OPEN: 
major macro instructions and various options 
associated with them that will be used. 

Code 

Always zero for BDAM. 

R READ 

K Key segment with READ. 

I ID argument with READ. 

S System provides area for READ (dynamic 

buffering). 

X Read exclusive. 

C CHECK macro instruction. 

Code 

Always zero for BDAM. 

W WRITE 

K Key segment with WRITE. 

I ID argument with WRITE. 

Reserved bit. 

A Add type of WRITE. 

Unblocked spanned records, with 
BFTEK=R specified and no dynamic 
buffering: The user's program 
has provided a segment work area 
pool and stored the address of 
the segment work area control 
block in DCBDYNB. 

Option codes: 

Code 

W Write-validity check. 

Track overflow. 

E Extended search. 

F Feedback. 

A Actual addressing. 

Dynamic buffering. 

Read exclusive. 

R Relative block addressing. 

Address of SYNAD (synchronous error) 
routine. 


DCBBLKSI Maximum block size. 


DCBLIMCT Number of tracks or number of relative blocks 

to be searched (extended search option). 
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APPENDIX G. PDABD SYMBOLIC FIELD NAMES 


The following describes PDABD fields of the dummy control 
section generated by the PDABD macro instruction. Included are 
the names/ attributes/ and descriptions of the dummy control 
section. The use of any of the symbolic names provided by the 
dummy section should be preceded by a USING instruction 
specifying IHAPDAB and a dummy section base register containing 


the address 

of the actual 

parallel data access block. 


PDABD 



IHAPDAB 

DSECT 



PDANODCB 

DS 

H 

Number of DCB addresses in list 

PDAMAXCB 

D$ 

H 

Maximum number of addresses allowed 

PDAGRTNA 

DS 

A 

Address of parallel GET routine 

PDADCBAI 

DS 

F 

DCB address increment 

PDADCBLA 

DS 

A 

Address of last DCB entry 

PDADCBEP 

DS 

A 

Address of DCB entry last processed 

PDAECBIX 

DS 

F 

Index to ECB list 

PDADCBAL 

EQU 

X 

Start of DCB list 
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GLOSSARY OF TERMS AND ABBREVIATIONS 


The following terms are defined as they 
are used in this book. If you do not 
find the term you are looking for, refer 
to the index or to the IBM Vocabulary 
for Data Processing, Telecommunications, 
and Office Systems . GC2Q-1699. 

ABE* abnormal end (value of EROPT) 

ABEND. abnormal end (macro instruction) 

ABSTR. absolute track (value of SPACE) 

ACC. accept erroneous block (value of 
EROPT) 

access method. A technique for moving 
data between main storage and 
input/output devices. 

address marker. A byte of data on a 
disk or diskette, used to identify the 
data field and ID field in the record. 

AFF. affinity (channel separation 
parameter of DD statement or unit 
affinity value of UNIT) 

AL. American National Standard Labels 
(Value of LABEL). 

alias. (1) An alternate label. For 
example, a label and one or more aliases 
may be used to refer to the same data 
element or point in a computer program. 
(2) An alternate name for a member of a 
partitioned data set. 

ANSI. American National Standards 

Institute 

ASCII. American National Standard Code 
for Information Interchange 

AUL. American National Standard user 
labels (value of LABEL) 

auxiliary storage. Bata storage other 
than virtual storage; for example, 
storage on magnetic tape or direct 
access devices. 

basic access technique. Any access 
method in which input/output statement 
causes a corresponding machine 
input/output operation to occur. 

Contrast with queued access technique. 

BCD. binary coded decimal 

BCDIC. binary coded decimal interchange 
code 

BDAM. basic direct access method 
BDW. block descriptor word 


BFALN. buffer alignment (operand of 

DCB) 

BFTEK. buffer technique (operand of 

DCB) 

BISAM. basic indexed sequential access 
method 

BLDL. build list (macro instruction) 

BLKSIZE. block size (operand of DCB) 

block prefix. An optional variable 
length field that may precede unblocked 
records or blocks of records in ASCII on 
magnetic tapes. 

block size. (1) The number of records, 
words, or characters in a block. (2) A 
measure of the size of a block, usually 
specified in units such as records, 
words, computer words, or characters. 

blocking. The process of combining two 
or more records into one block. 

BPAM. basic partitioned access method 

BPI. bits per inch 

BSAM. basic sequential access method 

BSM. backspace past tapemark and 
forward space over tapemark (operand of 
CNTRL) 

BSP. backspace one block (macro 
instruction) 

BSR. backspace over a specified number 
of blocks (operand of CNTRL). 

BUFCB. buffer pool control block 
(operand of DCB) 

buffer. An area of storage that is 
temporarily reserved for use in 
performing an input/output operation, 
into which data is read or from which 
data is written. 

buffer pool. An area of storage in 
which all buffers of a program are kept; 
the buffers are built in extents chained 
together. 

BUFL. buffer length (operand of DCB) 

BUFNO. buffer number (operand of DCB) 

BUFOFF. buffer offset (length of ASCII 
block prefix by which the buffer is 
offset; operand of DCB) 

CCHH. The cylinder head record that 
gives the DASD location. 


T* f 
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CCW. channel command word 

channel program* One or more channel 
command words that control a specific 
sequence of data channel operations. 
Execution of the specific sequence is 
initiated by a single start I/O 
instruction. 

CNTRL. control (macro instruction) 

CONTIG. contiguous space allocation 
(value of SPACE) 

control character* A character whose 
occurrence in a particular context 
initiates, modifies, or stops a control 
operation. It may be recorded for use in 
a subsequent action, and may have a 
graphic representation in some 
circumstances. 

control program* A routine, usually 
part of an operating system, that aids 
in controlling the operations and 
managing the resources of a computer 
system. 

CSW* channel status word 
CVOL. See OS CVOL. 

cylinder. (1) In a disk pack, the set 
of all tracks with the same nominal 
distance from the axis about which the 
disk pack rotates. (2) The tracks of a 
disk storage device that can be accessed 
without repositioning the access 
mechanism. 

CYLOFL. number of tracks for cylinder 
overflow records (operand of DCB) 

D. format-D (ISCII/ASCII 
variable-length) records (value of 
RECFM) 

DA. direct access (value of DEVD or 
DSORG) 

DASD* See direct access storage device 

data control block. A control block 
used by access method routines in 
storing and retrieving data. 

data conversion* The process of 
changing data from one form of 
representation to another. 

data definition (DD) statement. A job 
control statement that describes a data 
set associated with a particular job 
step. 

data extent block* An extension of the 
data control block that contains 
information about the physical status of 
the data set being processed. 

data set* The major unit of data 
storage and retrieval in the operating 
system, consisting of data in a 
prescribed arrangement and described by 


control information to which the system 
has access. As used in this publication, 
a collection of fixed- or 
variable-length records in auxiliary 
storage. 

data set control block. A data set 
label for a data set in direct access 
storage. 

data set label. A collection of 
information that describes the 
attributes of a data set and is normally 
stored on the same volume as the data 
set. 

DAU. direct access unmovable data set 
(value cf DSORG) 

DB. ISCII/ASCII variable-length, 
blocked records (value of RECFM) 

DBS. ISCII/ASCII variable-length, 
blocked spanned records (value of RECFM) 

DCB. See data control block (control 
block name, macro instruction, or 
parameter on DD statement) 

DCBD. data control block dummy section 
(macro instruction) 

DD. data definition 

DEB. S ee data extent block 

DECB. data event control block 

DEN. magnetic tape density (operand of 
DCB) 

dequeue. To remove items from a queue. 
Contrast with enqueue. 

DEVD. Device-dependent (operand of DCB) 

direct access storage device. A device 
in which the access time is effectively 
independent of the location of the data. 

direct data set. A data set whose 
records are in random order on a direct 
access volume. Each record is stored or 
retrieved according to its actual 
address or its address according to the 
beginning of the data set. Contrast 
with sequential data set. 

directory. (1) A table of identifiers 
and references to the corresponding 
items of data. (2) An index that is 
used by a control program to locate one 
or more blocks of data that are stored 
in separate areas of data set in direct 
access storage. 

DISP. data set disposition (parameter 
of DD statement) 

doubleword. A contiguous sequence of 
bits or characters that comprises two 
computer words and is capable of being 
addressed as a unit. 
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DS. ISCII/ASCII variable-length, 
spanned records (value of RECFM) 

DSCB. See data set control block 

DSECT. See dummy control section. 

DSORG. data set organization (operand 
of DCB) 

dummy control section. A control 
section that an assembler can use to 
format an area of storage without 
producing any object code. 

dynamic allocation. The allocation of a 
data set or volume by the use of the 
data set name or volume serial number 
rather than by the use of information 
contained in a JCL statement. 

dynamic buffering. (1) A dynamic 
allocation of buffer storage. 

(2) Allocation of storage for buffers as 
they are needed for incoming data during 
program execution. 

EBCDIC. extended binary coded decimal 
interchange code 

enqueue. To place items on a queue. 
Contrast with dequeue. 

entry point. (1) The address or the 
level of the first instruction executed 
upon entering a computer program, a 
routine, or a subroutine. A computer 
program, a routine, or a subroutine may 
have a number of different entry points, 
each perhaps corresponding to a 
different function or purpose. (2) In a 
routine, any place to which control can 
be passed. 

EODAD. End-of-data set exit routine 
address (operand of DCB) 

EOF. end-of-file 

EOV. end-of-volume 

EROPT. error options (operand of DCB) 

ESETL. end sequential retrieval (QISAM 
macro instruction) 

EXCP. execute channel program (macro 
instruction) 

exit list. A control block that 
contains the addresses of routines that 
receive control when specified events 
occur during execution; for example, 
routines that handle session 
establishment request processing or I/O 
errors. 

EXLST. See exit list (operand of DCB) 

F. fixed-length records (value of 
RECFM) 


FB. fixed-length, blocked records 
(value of RECFM) 


FES. fixed-length, blocked, standard 
records (value of RECFM) 

FBT. fixed-length, blocked records with 
track overflow option (value of RECFM) 

FCB. forms control buffer 

FEOV. force end-of-volume (macro 
instruction) 

FIPS. Federal Information Processing 
Standard 

flag. (1) Any of various types of 
indicators used for identification, for 
example, a wordmark. (2) A character 
that signals the occurrence of some 
condition, such as the end of a word. 

format-D. ISCII/ASCII or ISO/ANSI/FIPS 
variable-length records 

format-F. Fixed-length records 

format-U. Undefined-length records 

format-V. Variable-length records 

FS. fixed-length, standard records 
(value of RECFM) 

FSM. forward space past tapemark and 
backspace over tapemark (operand of 
CNTRL) 

FSR. forward space over a specified 
number of blocks (records) (operand of 
CNTRL) 

GCR. group coded recording (tape 
recording mode) 

generation data group. A collection of 
data sets that are kept in chronological 
order; each data set is called a 
generation data set. 

generation data set. One of a 
collection of historically related 
non-VSAM data sets; the collection of 
these data sets is known as a generation 
data group. 

GL. GET macro, locate mode (value of 
MACRF) 

GM. GET macro, move mode (value of 
MACRF) 

HA. home address 

halfword. A contiguous sequence of bits 
or characters that comprise half a 
computer word and is capable of being 
addressed as a unit. 

head. A device that reads, writes, or 
erases data on a storage medium, for 
example, a small electromagnet used to 
read, write, or erase data on magnetic 
drum or magnetic tape, or the set of 
perforating, reading, or marking devices 
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used for punching, reading, or printing 
on perforated tape. 

header label* (1) An internal label, 
immediately preceding the first record 
of a file, that identifies the file and 
contains data used in file control. 

(2) The label or data set label that 
precedes the data records on a unit of 
recording media. 

home address* An address written on a 
direct access volume, denoting a track’s 
address relative to the beginning of the 
volume. 

IBG. Intel—block gap 

ICF catalog* integrated catalog 
facility catalog 

INOUT* input then output (operand of 
OPEN) 

integrated catalog facility (ICF)* The 

name of the catalog associated with the 
Data Facility Product licensed program. 

internal storage. Storage that is 
accessible by a computer without the use 
of input/output channels. 

I/O. input/output 

IOB. input/output block 

IPL* initial program load 

IRG. interrecord gap 

IS. indexed sequential (value of DSORG) 

ISAM* indexed sequential access method 

ISCII* International Standard Code for 
Information Interchange 

ISO. International Organization for 
Standardization 

ISU* indexed sequential unmovable 
(value of DSORG) 

JCL. job control language 

JFCB. job file control block 

JFCBE* job file control block extension 

K. 1024 (bytes) 

key* One or more consecutive characters 
taken from a data record, used to 
identify the record and establish its 
order with respect to other records. 

KEYLEN. key length (operand of DCB) 

locate mode* A way of providing data by 
pointing to its location instead of 
moving it. 

logical record. (1) A record from the 
standpoint of its content, function, and 


use rather than its physical attributes; 
that is, one that is defined in terms of 
the information it contains. (2) A unit 
of information normally pertaining to a 
single subject; a logical record is that 
user record requested of or given to the 
data management function. 

LPA. link pack area 

LPALIB. link pack area library 

LRECL. logical record length (operand 
of DCB) 

LRI. 1 ogical record interface 

M. machine control code (value of 
RECFM) 

MACRF. macro instruction form (operand 
of DCB) 

master catalog. A key-sequenced data 
set with an index containing extensive 
data set and volume information required 
to locate data sets, to allocate and 
deallocate storage space, to verify the 
authorization of a program or operator 
to gain access to a data set, and to 
accumulate usage statistics for data 
sets. 

member. A partition of a partitioned 
data set. 

MOD. modify data set (value of DISP) 

move mode. A transmittal mode in which 
the record to be processed is moved into 
a user work area. 

MSHI. main storage for highest-level 
index (operand of DCB) 

MSS. IBM 3850 Mass Storage System 

MSVC. Mass Storage Volume Control 

MSWA. main storage for work area 
(operand of DCB) 

NCP. number of channel programs 
(operand of DCB) 

non-VSAM data set. A data set created 
and accessed using one of the following 
methods: BDAM, BPAM, BSAM, QSAM, QISAM. 

NOPWREAD. No password required to read 
a data set (value of LABEL) 

NRZI. non-return-to-zero-inverted (tape 
recording mode) 

NSL* nonstandard label (value of LABEL) 

NTM. number of tracks in cylinder index 
for each entry in lowest level of master 
index (operand of DCB) 

operand. Information entered with a 
command name to define the data on which 
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a command operates and to control the 
execution of the command. 

operating system. Software that 
controls the execution of programs; an 
operating system may provide services 
such as resource allocation, scheduling, 
input/output control, and data 
management. 

OPTCD. optional services code (operand 
of DCB) 

OS CVOL. operating system control 
volume 

OUTIN. output then input (operand of 
OPEN) 

partitioned data set. A data in direct 
access storage that is divided into 
partitions, called members, each of 
which can contain a program, part of a 
program, or data. Synonymous with 
program library. 

password. A unique string of characters 
stored in a catalog that a program or a 
computer operator at the console must 
supply to meet security requirements 
before the program gains access to a 
data set. 

PCI. program-controlled interruption 

PDAB. parallel data access block 

PDS. partitioned data set 

PE. phase encoding (tape recording 
mode) 

physical record. One or more logical 
records, or occasionally, a part of one 
logical record read into or written from 
main storage as a unit. 

PL. PUT macro, locate mode (value of 
MACRF) 


PM. PUT macro, move mode (value of 
MACRF) 


PO. partitioned organization (value of 
DSORG) 

pointer. An address or other indication 
of location. 

POU. partitioned organization unmovable 
(value of DSORG) 

problem program. Any program that is 
executed when the processing unit is in 
the problem state; that is, any program 
that does not contain privileged 
instructions. This includes 
IBM-distributed programs, such as 
language translators and service 
programs, as well as programs written by 
a user. 

PRTSP. printer line spacing (operand of 
DCB) 


PS. physical sequential (value of 

DSORG) 

PSU. physical sequential unmovable 
(value of DSORG) 

QISAM. queued indexed sequential access 
methods 

QSAM. queued sequential access method 

queued access technique. Any access 
method that synchronizes the transfer of 
data between the computer program using 
the access method and input/output 
devices, thereby minimizing delays for 
input/output operations. 

RACF. See Resource Access Control 
Facility. 

RDBACK. read backward (operand of OPEN) 

RDW. record descriptor word 

RECFM. record format (operand of DCB) 

record. A collection of related data or 
words, treated as a unit; for example, 
in stock control, each invoice could 
constitute one record. 

register. An internal computer 
component capable of storing a specified 
amount of data and accepting or 
transferring this data rapidly. 

relative address. An address expressed 
as a difference with respect to a base 
address. 

Resource Access Control Facility. A 
licensed program that provides for 
access control by identifying and 
verifying users to the system 
authorizing access to DASD data sets, 
logging detected unauthorized attempts 
to enter the system, and logging 
detected accesses to protected data 
sets. 

RKP. relative key position (operand of 
DCB) 

RLSE. release unused space (DD 
statement) 

RPS. rotational position sensing 

save area. An area of main storage in 
which the contents of registers are 
saved. 

scheduling. The ability to request that 
a task set should be started at a 
particular time interval or on 
occurrence of a specified PI interrupt. 

SDW. segment descriptor word 

secondary space. An area of direct 
access storage space which is allocated 
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after the primary space originally 
allocated has been exhausted. 

sequential data set. A data set whose 
records are organized on the basis of 
their successive physical positions, 
such as on magnetic tape. Contrast with 
direct data set. 

SER. volume serial number (value of 
VOLUME) 

serialization. In MVS, the prevention 
of a program from using a resource that 
is already being used by an interrupted 
program until the interrupted program is 
finished using the resource. 

SETL. set lower limit of sequential 
retrieval (QISAM macro instruction) 

SF. sequential forward (operand of READ 
or WRITE) 

SK. skip to a printer channel (operand 
of CNTRL) 

SKP. skip erroneous block (value of 
EROPT) 

SL. IBM standard labels (value of 
LABEL) 

SMSI. size of main-storage area for 
highest-level index (operand of DCB) 

SMSW. size of main-storage work area 
(operand of DCB) 

SP. space lines on a printer (operand 
of CNTRL) 

spooling. (1) The use of auxiliary 
storage as a buffer to reduce processing 
delays when transferring data between 
peripheral equipment and the processors 
of a computer. (2) The reading of input 
data streams and the output of data 
streams on auxiliary storage devices, 
concurrently with job execution, in a 
format convenient for later processing 
or output operations. 

SS. select stacker on card reader 
(operand of CNTRL) 

substitute mode. A transmittal mode 
used with exchange buffering on which 
segments are pointed to, and exchanged 
with, user work areas. 

subtask. (1) A task that is initiated 
and terminated by a higher order task. 
(2) A task that is restricted from 
communication with an operator device. 

SUL. IBM standard and user labels 
(value of LABEL) 

SVC. supervisor call 

SVCLIB. supervisor call library 


SYNAD. synchronous error routine 
address (operand of DCB) 

SYSIN. system input stream 

SYSOUT. system output stream 

system residence volume. The volume on 
which the nucleus of the operating 
system and the highest level index of 
the catalog are located. 

T. track overflow option (value of 
RECFM); usei—totaling (value of OPTCD) 

TIOT. task I/O table 

trailer label. A file or data set label 
that follows the data records on a unit 
of recording media. 

TRC. table reference character 

TRTCH. track recording technique 
(operand of DCB) 

TSO. Acronym of time sharing option. 
TTR. Acronym of track record. 

U. undefined length records (value of 
RECFM) 

UCS. universal character set 

UHL. user header label 

user catalog. A catalog used in the 
same way as the master catalog, but 
optional and pointed to by the master 
catalog, and also used to lessen the 
contention for the master catalog and to 
facilitate volume portability. 

UTL. user trailer label 

V. format-V (variable-length) records 
(value of RECFM) 

VB. variable-length, blocked records 
(value of RECFM) 

VBS. variable-length, blocked, spanned 
records (value of RECFM) 

virtual I/O (VIO). A facility that 
pages data into and out of external page 
storage; to the problem program, the 
data to be read from or written to 
direct access storage devices. 

volume. (1) A data carrier that is 
mounted and demounted as a unit, for 
example, a reel of magnetic tape, a disk 
pack. (2) That portion of a single unit 
of storage that is accessible to a 
single read/write mechanism, for 
example, a drum, a disk pack, or a part 
of a disk module. 

volume table of contents. A table on a 
direct access volume that describes each 
data set on the volume. 
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VS. variable-length/ spanned records 

VSAM catalog, virtual storage access 
method catalog 


VTOC. volume table of contents 

XLRI. extended logical record interface 

ff \ 
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A-type address constant 
defined 5 

abbreviations 220-226 
ABEND macro 
BDAM 33 
BPAM 45 
BSAM 59 

list format 197-198 
QSAM 84 

absexp defined 5 

absolute expression defined 5 

access methods 

general description 
BDAM 30 
BISAM 38 
BPAM 43 
BSAM 49 
QISAM 65 
QSAM 73 

macro instructions used with 178 
acronyms 220-226 
ACSMETH operand 

SYNADAF macro 168 
actual device addressing 


BDAM 

35 

QISAM 

69 

idding data to a 

BDAM 

34, 186 

BISAM 

40, 183 

BPAM 

185 

BSAM 

185, 186 

QISAM 

99 

QSAM 

100 


address feedback 

current block position 132 
next block position 133 
address of buffers 

obtained from a pool 103 
returned to a pool 96, 97 
addressing, types of (BDAM) 35 
aids, coding 2-3 

alias names in a directory 164-165 
alignment of buffers 
BDAM 30 
BISAM 38 
BPAM 43 
BSAM 50 
QISAM 65 
QSAM 74 

allocation retrieval list 197 
ANSI control characters 
BPAM 47 
BSAM 62 
QSAM 88 

argument, search 
BDAM 35 
QISAM 68 
ASCII data sets 
block prefix 
BSAM 52 
QSAM 77 

restriction 52, 77 
block size 
BSAM 51 


QSAM 76 
buffer length 
BSAM 52 
QSAM 77 

restriction on record format 
BSAM 62 
QSAM 88 

ASCII translation routines 
check routine 19 
get routine 100 
put routine 129 
write routine 185 
XLATE macro 191 
associated data sets 


closing 

21 


opening 

112 


specifying 


BSAM 

56, 

58 

QSAM 

81, 

82 


ATTACH macro 

relationship with BLDL macro 8 
automatic buffer pool construction 
BDAM 30 
BISAM 38 
BPAM 43 
BSAM 49 
QISAM 65-67 
QSAM 73 

automatic checkpoint restart 20 
automatic error options 
See EROPT 

automatic volume switching 
FEOV macro 93 


DD 


backspacing 

BSP macro 11 
CNTRL macro 27 
backward read 

open option 113 
read operation 137 
base registers 

dummy sections 90 
macro instructions 5 
basic direct access method 
See BDAM 

basic partitioned access method 
See BPAM 

basic sequential access method 
See BSAM 

BDAM (basic direct access method) 
general description 30 
macro instructions used with 193 
symbolic field names in DCB 217-218 
BFALN operand (DCB macro) 

BDAM 30 
BISAM 38 
BPAM 43 
BSAM 50 
QISAM 65 
QSAM 74 

BFTEK operand (DCB macro) 

BDAM 31 
BSAM 50 
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Q3AM 75 

BISAM (basic indexed sequential access 
method) 

general description 38 
macro instructions used with 193 
symbolic field names in DCB 213-216 
BLDL macro 

description 8-10 
reason codes 10 
return codes 10 
use by access method 193 
used with FIND 94 
BLKSIZE operand (DCB macro) 

BDAM 31 
BPAM 43-44 
BSAM 50 
QISAM 65-66 
QSAM 75-76 
block 

backspacing by 11 
count exit 
BSAM 59 

list format 197 
QSAM 84 

data control 30 
data event control 192 
descriptor word, relationship with 
BLKSIZE operand 44, 51, 66, 76 
BUFOFF operand 52, 77 
LRECL operand 68 
event control 192 
position feedback 123, 181 
positioning with POINT 123-124 
prefix 

See also BUFOFF operand 
effect on block length 51 
effect on buffer length 52, 77 
effect on data alignment 50, 74 
reading 132-138 
size 

See BLKSIZE operand 
writing 180-187 
block size for SYSOUT data sets 
See also BLKSIZE operand 
BSAM 51 
QSAM 76 
blocking 

data checks (UCS printer) 151 
records 

BDAM 30, 36 
BPAM 43, 47 
BSAM 62 
QISAM 71 
QSAM 88-89 
boundary alignment 
See BFALN operand 

BPAM (basic partitioned access method) 
general description 43 
macro instructions used with 193 
symbolic field names for DCB 204-210 
BSAM (basic sequential access method) 
general description 49 
macro instructions used with 193 
symbolic field names for DCB 202-207 
BSP macro 

description 11 
reason codes 12 
return codes 12 
use by access method 193 
BUFCB operand (DCB macro) 

BDAM 31 
BISAM 38 
BPAM 51 
BSAM 51 


QISAM 66 
QSAM 76 
relationship to 

GETBUF macro 103 
GETPOOL macro 104 

buffer 

alignment 

See BFALN operand 
control 

using FREEBUF macro 96 
using FREEDBUF macro 97 
using FREEPOOL macro 98 
using GETBUF macro 103 
using GETPOOL macro 104 
using RELSE macro 143 
forms control 

using SETPRT macro 146 
length 

See also BUFL operand 
BUILD macro 14 
BUILDRCD macro 15 
for ASCII data sets 52, 77 
for card image mode 52, 77 
GETPOOL macro 104 
message format (SYNADAF macro) 170 
pool construction 

See also BUFCB operand 
automatic (see BUFNO operand) 1 
using BUILD macro 13-14 
using BUILDRCD macro 15-16 
using GETPOOL macro 104 
releasing 

using FREEBUF macro 96 
using FREEDBUF macro 97 
using FREEPOOL macro 98 
using RELSE macro 143 
using SYNADRLS macro 171 
specifying number 
See BUFNO operand 
buffering 

dynamic 97 

problem program controlled 
BISAM 38 
BSAM 49 
simple 74-75 

specifying 31, 50-51, 74-75 
variable-length spanned record 
BDAM 31 
BSAM 51 
QSAM 75 

using BUILDRCD macro 15-16 
BUFL operand (DCB macro) 

BDAM 32 
BISAM 39 
BPAM 44 
BSAM 51 
QISAM 66 
QSAM 77 

BUFNO operand (DCB macro) 

BDAM 32 
BISAM 39 
BPAM 44 
BSAM 52 
QISAM 66-67 
QSAM 77 

relationship to CNTRL macro 27 
relationship to NCP operand 39 
BUFOFF operand (DCB macro) 

BSAM 52-53 
QSAM 77 
BUILD macro 

description 13-14 
relationship to 

BFALN operand 30 
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BUFCB operand 31 
BUFL operand 32 
BUFNO operand 32 
use by access method 193 
BUILDRCD macro 
description 

execute form 18 
list form 17 
standard form 13-14 
relationship to 

BUFL operand 77 
BUFNO operand 74 
GET macro 101 
PUT macro 130 
TRUNC macro 177 
use by access method 193 
BURST operand (SETPRT macro) 147, 159, 
161 


m 

capacity record CRO) 
relationship with 
READ macro 133 
WRITE macro 180, 186 
card codes 
BSAM 55 
QSAM 80 
card image 

buffer length required 52, 77 
defined 55, 80 
card punch 55, 80 
card reader 56, 80 
carriage control channel 
CNTRL macro 27-29 
PRTOV macro 125-126 
carriage control characters 
CNTRL macro 27-29 
machine 199-200 
PRTOV macro 125-126 
chained scheduling 
BPAM 47 
BSAM 61 
QSAM 86 

changing partitioned data set member 
name 164-165 
channel 

carriage control 

See carriage control channel 
overflow 125-126 
programs, number of 
BISAM 41 
BPAM 46 
BSAM 60 

character arrangement table 
specifying use of 147-148 
character set code 
1403 printer 151 
3203 printer 151 
3211 printer 151 
CHARS operand CSETPRT macro) 148 
CHECK macro 

description 19 
relationship to 

end of data (EODAD) 45, 58 
MACRF operand 34 
operations (NCP) 41, 46, 60 
POINT macro 124 
READ macro 132, 135, 137, 139 
WRITE macro 180, 183, 185, 186 
use by access method 193 


checking, write-validity 
BDAM 36 
BPAM 47 
BSAM 62 
QISAM 70 
QSAM 87 

checkpoint records, embedded CDOS) 
CNTRL macro 27 
POINT macro 123 
CHKPT macro 

use by access method 193 
CLOSE macro 

execute form 26 
list form 24 
MODE 23, 25, 26 
MVS/370 compatibility 23 
relationship to 

BUILDRCD macro 16 
FREEPOOL macro 98 
POINT macro 123 
PUT macro 130 
SETL macro 144 
standard form 21-23 
TYPE=T 22 

use by access method 193 
CNTRL macro 

description 27-29 
restrictions 27 
specified in MACRF operand (DCB 
macro) 

BSAM 60 
QSAM 85 

use by access method 193 
codes 

See also card codes 

See also completion codes 

See also control characters 

See also conversion 

See also exception code 

See also return codes 

card 

BSAM 55 
QSAM 80 
completion 

See code, return 
control character 

See control characters 
conversion 

ASCII to EBCDIC 19, 100, 191 
EBCDIC to ASCII 185, 191 
XLATE macro 191 
return 

BLDL macro 10 
BSP macro 12 
FIND macro 94 
MSGDISP macro 109 
NOTE macro 111 
POINT macro 124 
RELEX macro 142 
SETPRT macro 152-156 
STOW macro 165-167 
SYNADAF macro 169 
SYNADRLS macro 171 
WRITE macro 188 

coding 

aids 2-3 

macro instructions 1-7 
registers as operands 5 
column, binary 

See also card image 
eliminate mode, read column 
BSAM 55, 57 
QSAM 81 
compatibility 
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MVS/XA with MVS/370 23, 115 

completion codes 
BLDL macro 10 
BSP macro 12 
FIND macro 94 
MSGDISP macro 109 
NOTE macro 111 
POINT macro 124 
RELEX macro 142 
STOW macro 165-167 
SYNADAF macro 169 
SYNADRLS macro 171 
WRITE macro 188 
completion testing of I/O 
operations 19, 178 
condition, exception 192 
construct 

a buffer pool 

See buffer pool construction 
a data control block 
See DCB macro 

a DECB Cdata event control 
block) 192 

contents of registers on entry to 
exit list 198 
control 

characters 199-200 
I/O device 27-29, 125 
page format 125-126 
printer (3800) 146-151 

releasing 

buffer (FREEBUF macro) 96 
buffer pool (FREEPOOL macro) 98 
data block (RELEX macro) 142 
dynamically acquired buffer 97, 
181 

QSAM buffer (RELSE macro) 143 
requesting 

buffer (GETBUF macro) 103 
data block 104 

control blocks 1, 24, 135-139 
buffer pool 

See BUFCB operand 
data 

See DCB macro 
data event 192 
control characters 
CNTRL macro 27-29 
ISO/ANSI/FIPS 201 
machine 199 
PRTOV macro 125-126 
specifying for 
BPAM 47 
BSAM 63 
QSAM 88 
control section 
See DCB macro 
COPIES operand 

in SETPRT macro 
modifying 151 
specifying 148 
copy modification module 
specifying 150 

COPYNR operand in SETPRT macro 
modifying 151 
count exit, block 
BSAM 59 

format list 197 
QSAM 84 
cylinder 

index 69 
overflow area 67 
cylinder overflow 
DCB macro 67 


CYLOFL operand (DCB macro) 


| D | 


D-format records 
BSAM 62 
QSAM 88 

DASD (direct access storage devices) 
capacity 194-196 
considerations with 
BSP macro 11 
CLOSE macro 21, 22 
POINT macro 123-124 
interface in DCB 206 
data block 

exclusive control of 132 
locating with POINT macro 123-124 
release of exclusive control 142 
retrieving 99-102, 132-139 
writing 127-131, 180-187 
data check 

blocking and unblocking 61, 87, 150 
restriction with CNTRL macro 27 
data control block 
See DCB 

data control block (DCB) 

DCBNCRHI field 41 
symbolic references to 202-218 
data definition (DD) statement 
See DD statement 
data event control block 
See DECB 

data extent block 
See DEB 

data management 

parameter list 24, 117 
data mode processing 
GET macro 85, 101 
PUT macro 86, 130 
data prtotection image 
See DPI 
data set 

block size for SYSOUT 51, 76 
closing 21-23 
connecting to 112-116 
disconnecting from 21-23 
disposition at close 22 
opening 112-116 
organization 

See DS0RG operand 
temporary closing 22-23 
types 

See access methods 
data translation 

See code conversion 
data transmittal modes 
data 85, 101, 130 
locate 99, 100, 127, 129-130 
move 99, 101, 127, 130 
specified in DCB 85 
data, end of 

See EODAD operand 
DCB (data control block) 
completing 112 
construction 

See DCB macro 
DCBBLKCT field 28 
DCBEXCD1 field 192 
DCBEXCD2 field 192 
DCBLRECL field 129 
DCBOFLGS field 115 
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description 

See DCB macro 
dummy section for 90-91 
exit list 

See EXLST operand 

special options with BLDL macro 8-10 
DCB ABEND exit 
BDAM 33 
BPAM 45 
BSAM 59 

list format 197-198 
QSAM 84 
DCB macro 

BDAM 30-37 
BISAM 38-42 
BPAM 43-48 
BSAM 49-64 
QISAM 72 
QSAM 73-89 

use by access method 193 
DCB open exit routine 

relationship to OPTCD operand 35, 62 
restriction with BUILDRCD macro 15 
DCB operands 
description 

See DCB macro 

symbolic names for 202-218 
DCBD macro 

description 90-91 
use by access method 193 
DD statement 

See also DDNAME operand 
NOTE macro 110 
OPEN macro 112-114 
POINT macro 123 
relationship to data control 
block 1, 110, 112, 114, 123 
DDNAME operand (DCB macro) 

BDAM 33 
BISAM 39 
BPAM 45 
BSAM 53 
QISAM 67 
QSAM 78 

DEB (data extent block) 
validity checking 112 
deblocking records 
BDAM 30, 36 
BPAM 47 
BSAM 62 
QISAM 71 

DECB (data event control block) 
construction 140, 189 
description 192 
exception code 192 

modifying with execute form 141, 190 
requirement with CHECK macro 19 
requirement with FREEDBUF macro 97 
delete option 

description 70 
DEN operand (DCB macro) 

BSAM 54 
QSAM 78 

density, recording 
See DEN operand 
descriptor word 
block 

BPAM 44 

BSAM 51, 52, 139 
QISAM 66, 68 
QSAM 76, 77 
record 

BSAM 52 
QISAM 66, 68 


QSAM 84 

segment 51, 139 
DEVD operand (DCB macro) 

BSAM 53-58 
DCBD macro 91 
QSAM 78-83 

device addressing, types of (BDAM) 35 
device capacities 194-196 
device types in a dummy section 91 
direct data set 

See BDAM data set 
direct search option 
BSAM 62 
QSAM 87 

directory, partitioned data set 

obtaining contents with BLDL 8-10 
operations performed by STOW 
macro 164-165 
search by FIND macro 94 
DISP option 

See disposition option 
disposition option 
CLOSE macro 22 
OPEN macro 114 

requirement for extending an ISAM 
data set 110 

DOS (Disk Operating System) 

embedded checkpoint records 
CNTRL macro 27 
DOS/OS interchange feature, 
specifying 62, 87 
POINT macro 123 
doubleword alignment 
See BFALN operand 
DPI (data protection image) 
for BSAM 56, 57 
for QSAM 81, 82 
DSECT statement 

DCB symbolic names 202 
DSORG operand (CHECK macro) 19 
DSORG operand (DCB macro) 45 
BDAM 33 
BISAM 39 
BPAM 45 
BSAM 58 
QISAM 67 
QSAM 83 

dummy control section 
DCBD macro 90-91 
PDABD macro 122 
used for DCB 202 
dummy data block (BDAM) 186-187 
dummy key 186 
dynamic buffering 

effect on buffer length 32, 38 
effect on number of channel 
programs 41 

requesting in READ macro 133, 135 
requesting in WRITE macro 181, 183 
returning buffer to the pool 97, 181 
specified in BDAM DCB 35 
specified in BISAM DCB 41 


E 


EBCDIC (extended binary coded decimal 
interchange code) 

ASCII translation 
check routine 19 
DCB option 61, 86 
GET routine 100 
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put routine 129 
write routine 185 
XLATE macro 191 
ECB (event control block) 192 
ECB operand 

WAIT macro 178 
ECBLIST operand 
WAIT macro 178 
eliminate mode, read coliimn 
BSAM 57 
QSAM 81 

embedded checkpoint records (DOS) 

CNTRL macro 27 
POINT macro 123 
end-of-data 

See EODAD operand 
end-of-data routine 
See EODAD routine 

end-of-file on magnetic tape, ignoring 
BSAM 62 
QSAM 87 

end-of-sequential retrieva1 
See ESTEL 
end-of-volume 
exit 

BSAM 59 
QSAM 84 

forced (FEOV macro) 93 
entry 

to exit routine 197 
to SYNAD exit routine 192 
EODAD (end-of-data) routine 
with BSP macro 11 
with CHECK macro 19 
with CNTRL macro 27 
with FEOV macro 93 
with GET macro 99, 102 
with POINT macro 124 
EODAD operand (DCB macro) 

BPAM 45 
BSAM 58 
QISAM 67 
QSAM 83 

EROPT (automatic error options) operand 
(DCB macro) 83-84 
ERP (error recovery procedure) 

BSAM 62 
QSAM 87 

error analysis, I/O 
relationship with 
CHECK macro 19 
CNTRL macro 28-29 
DCB macro 62, 87 
GET macro 99, 102 
POINT macro 124 
PUT macro 128, 130 
PUTX macro 131 
SETL macro 145 
SYNADAF macro 168 
specifying in DCB macro 
BDAM 37 
BISAM 42 
BPAM 48 
BSAM 62 
QISAM 72 
QSAM 89 

status indicators 
QISAM 192 
error codes 

See return codes 
error conditions 

while opening a data set 116 
error exits 

CHECK macro 19 


CNTRL macro 28-29 
DCB macro 62, 87 
GET macro 99, 102 
POINT macro 124 
PUT macro 128, 130 
PUTX macro 131 
SETL macro 145 
SYNADAF macro 168-169 
error option operand (QSAM) 83 
error recovery 
procedure 

for tape 62, 87 

ESETL (end-of-sequential retrieval) 
macro 

relationship to 
SETL macro 144 

ESETL (end-of-sequential-retrieval) 
macro 

description 92 
relationship to 
GET macro 99 

ESTEL (end-of-sequential retrieval) 
macro 

use by access method 193 
event control block 
See ECB 
open 

See DCB open exit routine 
exception code 192 

exclusive control of data block (BDAM) 
releasing of 181 
requesting of 132 
specified in DCB 35 
EXCP macro 

relationship with SYNADAF macro 168 
execute form 

BUILDRCD macro 18 
CLOSE macro 26 
OPEN macro 119 
READ macro 141 
SETPRT macro 161-163 
WRITE macro 190 
exit routine 

See also EXLST operand 
block count 59, 84 
data control block 
See EXLST operand 
end-of-data 

See EODAD operand 
end-of-volume 59, 84 
error analysis 

See error exits 
FCB image 59, 84 
list format 197 
user labeling 59, 84 
user totaling 59, 84 
EXLST operand (DCB macro) 

BDAM 33 
BISAM 39 
BPAM 45 
BSAM 58 

list format 197 
QISAM 68 
QSAM 84 
expressions 

absolute (absexp) 5 
relocatable (relexp) 5 
EXTEND operand (OPEN macro) 113 
extended binary coded decimal 
interchange code 
See EBCDIC 

extended logical record interface 
See XLRI 

extended search option 


4 .\ 
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LIMCT operand 34 
OPTCD operand 35 



m 


F-format records 

See RECFM operand 
FCB (forms control buffer) 
image 

defining 59, 84 
operand (SETPRT macro) 148 
feedback 

block position 132, 181 
next address 133 
FEOV macro 

use by access method 193 
use of 93 
file, end of 

See end-of-file 
FIND macro 

description 94 
reason codes 95 
return codes 94 
use by access method 193 
fixed-length records 

See BLKSIZE operand, RECFM operand 
FLASH operand (SETPRT macro) 
specifying 149 
FLASH operand in SETPRT macro 
modifying 151 
format 

exit list 197 
page 125 
record 

BDAM 36 
BPAM 47 
BSAM 62-64 
QISAM 71 
QSAM 88-89 
forms alignment 149 
forms control buffer 
See FCB 

forms overlay frame 149 
forward space (CNTRL macro) 28 
FREE option 

CLOSE macro 22 
FREEBUF macro 

description 96 
relationship to 
BUILD macro 13 
GETBUF macro 103 
use by access method 193 
FREEDBUF macro 

description 97 
use by access method 193 
used with BISAM 40, 183 
FREEP00L macro 

description 98 
relationship to 
CLOSE macro 21 
GETPOOL macro 104 
use by access method 193 
full-track-index write option 70 
fullword boundary alignment 
See BFALN operand 
FUNC operand (DCB macro) 

BSAM 55-56, 57 
QSAM 80-81, 82 


GET macro 

ASCII translation 100 
data mode (QSAM) 85, 101 
for 

QISAM 99 
QSAM 100-102 
locate mode 

QISAM 69, 99 
QSAM 85, 100 
move mode 

QISAM 69, 99 
QSAM 86, 101 

restriction when using CNTRL 
macro 27, 85 
relationship to 
CNTRL macro 27 
EODAD (see EODAD operand) 1 
PDAB macro 121 
RELSE macro 143 
SETL macro 144 
specified in DCB macro 
QISAM 69 
QSAM 85 
TYPE=P 102 

use by access method 193 
get routine exits 99, 102 
GETBUF macro 

description 103 
relationship to 
BUILD macro 13 
FREEBUF macro 96 
use by access method 193 
GETPOOL macro 

description 104 
relationship to 

BFALN operand 30 
BUFCB operand 32 
BUFL operand 32 
BUFNO operand 32 
FREEP00L macro 98 
use by access method 193 
glossary 220-226 


m 


IHADCB dummy section 90 
IHAPDAB dummy section 122 
image 

data protection 
BSAM 56, 58 
QSAM 81, 82 

FCB (forms control buffer) 59, 84, 
148 

UCS (universal character set) 151 
image mode, card 
BSAM 55 
QSAM 80 

independent overflow area 70 
index 

cylinder 69 
highest-level 

address of 40 
size of 41 
master 

number of tracks per level 69 
specified in OPTCD operand (DCB 
macro) 69 
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INIT operand CSETPRT macro) 149 
INQUT operand (OPEN macro) 113 
input data sets 
closing 22-23 
opening 112-116 
READ or GET specified in DCB 
BDAM 34 
BISAM 40 
BPAM 46 
BSAM 60 
QISAM 69 
QSAM 85 
reading 

BDAM 132-134 
BISAM 134-135 
BPAM 137-138 

BSAM (read a direct data set) 139 
BSAM (read a sequential data 
set) 137-138 
QISAM 99 
QSAM 100-102 

testing completion of I/O operations 
CHECK 19 
WAIT 178-179 
used with GET macro 100 
INPUT operand (OPEN macro) 113 
INPUT option 

OPEN macro 112 
input/output devices 

card reader and card punch 27 
control of 

CNTRL macro 27-29 
PRTOV macro 125 
magnetic tape 27 
printer 27 
3505 card reader 

DCB macro 57, 81 
3525 card punch 
CLOSE macro 21 
CNTRL macro 27 
DCB macro 57, 58, 81 
OPEN macro 112 
input/output error analysis 
See SYNAD exit routine 
input/output operations 
completion of 19, 178 
interface, DCB 

for BPAM 209-210 
for BSAM 209-210 
for card reader, card punch 207 
for direct access devices 206 
for magnetic tape 207 
for printer 207 
for QSAM 211 
interface, logical record 
See LRI 

ISAM (indexed sequential access method) 
See also BISAM, QISAM 
general description 38, 65 
macro instructions used with 193 
symbolic field names in DCB 213-216 
ISO/ANSI/FIPS control character*? 
defined 201 



JCL (job control language) 

DD statement, relationship to 
CLOSE macro 21 

data control block (see DDNAME 
operand) 1 
DCB macro 33, 45 
GET macro 100 
NOTE macro 110 
OPEN macro 112-113 
POINT macro 123 
PUT macro 127 

LABEL parameter to request ASCII 
translation 19, 100, 129 
JFCBE (job file control block extension) 
exit list format 197 
EXLST operand 84 

relationship with OPTCD parameter 62 
job step 

checkpoint restart 20 


K 


key (BDAM) 

address 133 
reading 132 

specifying as search argument 35 
specifying length 33 
writing 181 
key (ISAM) 

address 135, 183 
reading 135 
specifying length 68 
specifying position 71 
writing 183 
key length 

See KEYLEN operand 
key position, relative (RKP) 71 
key, record 

PUT macro 127 
READ macro 135 
RKP (relative key position) 
operand 71 
SETL macro 144-145 
WRITE macro 183 
KEYLEN operand (DCB macro) 

BDAM 33 
BPAM 46 
BSAM 59 
QISAM 68 




LABEL operand 

DD statement 19, 100, 129 
labels 

See also EXLST operand 
exit list format 197 
input data set 87, 93, 112 
output data set 
CLOSE macro 21 
FEOV macro 93 
OPEN macro 112 
user, processing 59, 84 
LEAVE option 
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CLOSE macro 21 
FEOV macro 93 
OPEN macro 114 
length 
buffer 

See BUFL operand 

key 

See KEYLEN operand 
record 

See LRECL operand 
levels of master index (ISAM) 69 
LIMCT operand (DCB macro) 34 
line spacing, printer 
CNTRL macro 27-29 
PRTSP operand (DCB macro) 

BSAM 54-55 
QSAM 79 
LINK macro 

relationship with BLDL macro 8 
list address 

data management 26, 119, 164 
list form 

BUILDRCD macro 17 
CLOSE macro 24 
OPEN macro 117 
READ macro 140 
SETPRT macro 159-160 
WRITE macro 189 
list format, exit 197 
LOAD macro 

relationship with BLDL macro 8 
loading 

FCB (forms control buffer) 148 
UCS (universal character set 
buffer) 151 
locate mode 

BUILDRCD macro 15 
GET macro 

QISAM 99, 100 
QSAM 100 
PUT macro 

QISAM 127 
QSAM 129 

specified in DCB macro 
QISAM 69 
QSAM 85 

logical record interface 
See LRI 

logical record length 

See also LRECL operand 
GET macro 100 
PUT macro 127, 129 
PUTX macro 131 
LONG operand 

WAIT macro 179 

lower limit of sequential retrieval 
(SETL macro) 144-145 
LRECL operand (DCB macro) 

BPAM 46 
BSAM 59 
QISAM 68 
QSAM 84 

LRI (interface logical record) 
invoked by BUILDRCD macro 15 
LRI (logical record interface) 
provided by QSAM 76 
specifying in DCB macro (BFTEK) 75 
used with PUT macro 129 



machine control characters 
BPAM 47 
BSAM 63 

description 199-200 
QSAM 88 

MACRF operand (DCB macro) 
BDAM 34-35 
BISAM 40 
BPAM 46 
BSAM 60 
QISAM 68 
QSAM 85 

macro use by access method 
macros, data management 
BLDL 8 
BSP 11 
BUILD 13-14 
BUILDRCD 

execute form 18 
list form 17 
standard form 15-16 
CHECK 19 
CHKPT 
CLOSE 

execute form 26 
list form 24 
standard form 21-23 
CNTRL 27-29 
coding 1-3 
DCB for 

BDAM 30-37 
BISAM 38-42 
BPAM 43-48 
BSAM 49-64 
QISAM 65-72 
QSAM 73-89 
DCBD 90-91 
ESETL 92 
FEOV 93 
FIND 94 
FREEDBUF 97 
FREEPOOL 98 
GET for 

QISAM 99 
QSAM 100-102 
GETBUF 103 
GETP00L 104 
NOTE 110 
OPEN 

execute form 119 
list form 117 
standard form 112-116 
PDAB 121 
PDABD 122 
POINT 123-124 
PRTOV 125-126 
PUT for 

QISAM 127 
QSAM 129-130 
PUTX 131 
READ for 

BDAM 132-134, 139 
BISAM 134-135 
BPAM 137-138 
BSAM 137-139 
execute form 141 
list form 140 
RELEX 142 
RELSE 143 
SETL 144-145 


193 
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SETPRT 

execute form 163 
list form 159-160 
standard form 146-158 
STOW 164-167 
SYNADAF 168-170 
SYNADRLS 171 
TRUNC 177 
WAIT 178-179 
WRITE for 

BDAM 180-182, 186-188 
BISAM 183-184 
BPAM 185 
BSAM 185 
execute form 190 
list form 189 
XLATE 191 
magnetic tape 
backspace 

BSP macro 11 
CNTRL macro 27 
considerations with 
BSP macro 11 
CLOSE macro 21-23 
POINT macro 123-124 
density 54, 79 
end-of-file, ignored 62, 87 
FEOV (final volume positioning) 
macro 93 
forward space 27 
interface in DCB 207 
read backward 137 
recording technique 54, 79 
restriction 

NOTE macro 110 
POINT macro 123 

short error recovery procedure 62, 

87 

Mass Storage System 
See MSS 
master index 

highest level in storage 

address of storage area 40 
size of storage area 41 
number of tracks per level 69 
option specified in DCB 69 
MAXDCB operand 

PDAB macro 121 
member, partitioned data set 

complete a list with BLDL macro 8-10 
locate beginning with FIND macro 94 
update directory with STOW 
macro 164-165 
MF operand 

BUILDRCD macro 17, 18 
CLOSE macro 26 
OPEN macro 117, 119 
READ macro 140, 141 
SETPRT macro 160, 163 
WRITE macro 189, 190 
mode 

See also MACRF operand 
card image 
BSAM 55 
QSAM 80 

data (QSAM) 85, 101, 130 
locate 

QISAM 69, 99, 127 
QSAM 85, 100, 129 
move 


QISAM 69, 99, 127 
QSAM 86, 101, 130 
optical mark read 
BSAM 57 
QSAM 81 

read column eliminate 
BSAM 57 
QSAM 81 

scan (QISAM) 69 
MODE operand (DCB macro) 

BSAM 55, 56 
QSAM 80, 81 

MODIFY operand (SETPRT macro) 
modifying a parameter list 
BUILDRCD macro 18 
CLOSE macro 26 
OPEN macro 117, 119 
READ macro 141 
SETPRT macro 161 
WRITE macro 
move mode 
QISAM 

GET macro 
PUT macro 
specified in DCB 
QSAM 

GET macro 
PUT macro 
specified in DCB 
restriction 27, 86 
MSGDISP macro 
return codes 
MSHI operand (DCB macro) 40 
MSS (Mass Storage System) 
device capacity 194 
in DCB 206, 209, 211 
MSWA operand (DCB macro) 40 
multiline print option 
BSAM 56, 57 
QSAM 81, 82 

MVS/370 compatibility 23, 115 


150 


190 


99 

127 


101 

130 


109 


69 


86 



NCP operand (DCB macro) 

BISAM 41 
BPAM 46 
BSAM 60 

next address feedback 
BDAM (creating) 187 
BDAM (existing) 133 
NOTE macro 

description 110 
relationship with POINT macro 
restriction 

with BSP macro 11 
return codes 111 
specified in DCB 
BPAM 46 
BSAM 60 

use by access method 193 
NTM operand (DCB macro) 70 
number of channel programs 
See NCP operand 

number of tracks per index level 
See NTM operand 


110 


236 MVS/XA Data Administration: Macro Instruction Reference 



m 


OMR (optical mark read) mode 
BSAM 57 
QSAM 81 
on-line printer 
control 27-29 
skipping 199-200 
spacing 199-200 
online printer 
skipping 125 
spacing 125 
open exit 

See DCB open exit routine 
OPEN macro 

execute form 119 
list form 117 
MODE 115, 118, 119 
MVS/370 compatibility 115 
relationship to 
CLOSE macro 21 
DDNAME operand 1 
FEOV macro 93 
GETPOOL macro 104 
NOTE macro 110 
READ macro 137 
WRITE macro 185 
standard form 112-116 
TYPE 114, 117, 119 
use by access method 193 
open operation, testing 114-116 
open options 112-114 
operands 

substitution for 4 
0PTCD operand 
in DCB macro 
BDAM 35 
BISAM 41 
BPAM 47 
BSAM 62 
QISAM 70 
QSAM 86-87 
in SETPRT macro 150 
optical mark read mode 
See OMR 
option codes 

See 0PTCD operand 
organization, data set 
See access methods 
OUTIN operand (OPEN macro) 113 
0UTINX operand (OPEN macro) 113 
output data set 
closing 21-23 
opening 112-116 

WRITE or PUT specified in DCB macro 
BDAM 35 
BISAM 40 
BPAM 46 
BSAM 60 
QISAM 69 
QSAM 86 
writing 

BDAM 180-182 
BISAM 183-184 
BPAM 185 
BSAM 185 

BSAM (write to a direct data 
set) 186-187 
QISAM 127, 131 
QSAM 129-130 

OUTPUT operand (OPEN macro) 113 
overflow 


area 

independent 70 
channel 125 

exit address (PRTOV macro) 125 
printer carriage 125 
overflow, track 
BDAM 36 
BPAM 47 
BSAM 63 
QSAM 88 

restrictions 88 

chained scheduling 47, 88 
with OPTCD operand 88 
overlay frame 149 
overprinting 125 


cu 

parallel data access block 
See PDAB 

parameter list construction 
BUILDRCD macro 17 
CLOSE macro 24 
OPEN macro 117 
READ macro 140 
SETPRT macro 159-160 
WRITE macro 189 
parameter list modification 
BUILDRCD macro 18 
CLOSE macro 26 
OPEN macro 119 
READ macro 141 
SETPRT macro 161-163 
WRITE macro 190 
partitioned data set 

macro instructions used with 193 
relationship to 

BLDL macro 8-10 
FIND macro 94 
STOW macro 164-165 
PDAB (parallel data access block) 
constructing 121 
generating a DSECT 122 
symbolic field names 219 
PDAB macro 

use by access method 193 
use of 121 
PDABD macro 

symbolic field names 219 
use by access method 193 
POINT macro 

description 123-124 
relationship to 
NOTE macro 110 
restriction 

with BSP macro 11 
return codes 124 
specified in MACRF operand 
BPAM 46 
BSAM 60 

use by access method 193 
position feedback 

current block 132, 181 
next block 133, 186 
position, relative key (RKP) 71 
positioning volumes 

using CHECK macro 19 
using CLOSE macro 21-23 
using FEOV macro 93 
using OPEN macro 112 
using POINT macro 123-124 
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prefix, block 

See also BUFOFF operand 
effect on block length 51, 77 
effect on buffer length 52, 77 
effect on data alignment 50, 74 
print option for 3525 
BSAM 56, 58 
QSAM 80, 82 
Print Services Facility 
See PSF 
printer 

carriage control 27-126 
character set buffer loading 151 
control characters 199-200 
control information 146 
control tape 125-126 
forms control buffer loading 148 
skipping 27-29, 199-200 
spacing 27-200 
program, channel 
BISAM 41 
BPAM 46 
BSAM 60 

protection option, data 
BSAM 56, 58 
QSAM 81, 82 
PRTOV macro 

description 125 
use by access method 193 
PRTSP operand (DCB macro) 

BSAM 54-55 
QSAM 79 

PSF (Print Services Facility) 

relationship with SYNAD routine 64 
SYS1.FDEFLIB 146 
SYS1.FQNTLIB 146 
SYS1.PDEFLIB 146 
punch, card 55, 80 
PUT macro 

data mode (QSAM) 85, 130 
for 

QISAM 127 
QSAM 112-114 
locate mode 
QISAM 127 
QSAM 129 
move mode 

QISAM 127 
QSAM 130 
relationship with 
PRTOV macro 125 
SYNADAF macro 168 
TRUNC macro 177 
specified in DCB macro 
QISAM 69 
QSAM 85 

use by access method 193 
PUTX macro 

description 131 
output mode 131 

relationship with TRUNC macro 177 
specified in DCB macro 
QISAM 69 
QSAM 86 

update mode 131 

use by access method 193 


H 


QISAM (queued indexed sequential access 
method) 

general description 65 
macro instructions used with 193 
symbolic field names in DCB 213^*216 
QSAM (queued sequential access method) 
general description 73 
macro instructions used with 193 
symbolic field names in DCB 202-212 
queued access technique 
See QISAM and QSAM 


m 

RDBACK operand (OPEN macro) 113 
read backward 

magnetic tape 113, 137 
read column eliminate mode 
BSAM 57 
QSAM 81 
READ macro 

execute form 141 

0P BDAM 132-134, 139 
BISAM 134-135 
BPAM 137-138 
BSAM 137-139 
list form 140 
relationship to 

BFTEK operand 31, 50 
BUFL operand 32 
CHECK macro 19 
E0DAD operand 45, 58 
FIND macro 94 
FREEDBUF macro 97 
KEYLEN operand 33 
LIMCT operand 34 
MACRF operand 34, 40, 46, 59-60 
NCP operand 41, 46, 60 
OPTCD operand 35 
POINT macro 123 
RELEX macro 142 
WAIT macro 178 
WRITE macro 180-182 
specified in DCB macro 
BDAM 34 
BISAM 40 
BPAM 46 
BSAM 59 
standard form 
BDAM 132-134 
BISAM 134-135 
BPAM 137-138 

BSAM (read direct data set) 139 
BSAM (read sequential data 
set) 137-138 
use by access method 193 
reason codes 

BLDL macro 10 
BSP macro 12 
FIND macro 95 
SETPRT macro 157 
STOW macro 165-167 
RECFM operand (DCB macro) 

BDAM 36 
BPAM 47 
BSAM 62-64 
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QISAM 71 
QSAM 88-89 
record 
area 

construction 137 
deletion option (ISAM) 70 
format (see RECFM operand) 1 
length (see LRECL operand) 1 
descriptor word/ relationship with 
BSAM 52 
QISAM 66/ 68 
QSAM 84 
physical 

See BLKSIZE operand 
retrieval 99-102/ 132-139 
segment 129 

variable-length/ spanned 16/ 76 
writing 127-131/ 180-187 
recording density/ magnetic tape 
BSAM 54 
QSAM 79 

recording technique/ magnetic tape 
BSAM 54 
QSAM 79 
register 

contents on entry to 

DCB exit routine 198 
overflow exit routine 125 
DCBD base 90-91 
usage rules 5 
relative addressing 
BDAM 36 
FIND macro 94 
POINT macro 124 
relative key position 71 
release 

buffer 96 
buffer pool 98 

dynamically acquired buffer 97 
exclusive control 181 
QSAM buffer 143 
RELEX macro 

description 142 

relationship to MACRF operand 35 
return codes 142 
use by access method 193 
relexp defined 5 

relocatable expression defined 5 
RELSE macro 

use by access method 193 
use of 143 

reorganization statistics (ISAM) 70 
REREAD option 

CLOSE macro 21 
OPEN macro 114 

restore data control block 21-23 
return codes 

BLDL macro 10 
BSP macro 12 
FIND macro 94 
MSGDISP macro 109 
NOTE macro 111 
POINT macro 124 
RELEX macro 142 
SETPRT macro 152-156 
STOW macro 165-167 
SYNADAF macro 169 
SYNADRLS macro 171 
WRITE macro 188 
RETURN macro 

relationship with SYNAD operand 
BDAM 37 
BISAM 42 
BPAM 48 


BSAM 64 
QISAM 72/ 201 
QSAM 89 
REWIND option 

CLOSE macro 21 
FEOV macro 93 
REXMIT operand 

SETPRT macro 151 

RKP (relative key position) operand 71 
RKP operand (DCB macro) 68 
R0 record 

See capacity record 


| S ] 


save area 

general register requirements 5 
SYNADAF requirement 168 
SYNADRLS macro 171 
scan mode 69 
search 

partitioned data set directory 
BLDL macro 8-10 
FIND macro 94 
type of 

BDAM 34 
QISAM 69 
search argument 
BDAM 34 
QISAM 68 

search direct option 87 
search option/ extended 35 
segment 

buffer 127 

descriptor word 51/ 139 
interface/ restriction 15 
work area 32 
sequential access methods 
See access methods 
services/ optional 


BDAM 

35 

BPAM 

47 

BSAM 

60-61 

QISAM 

70 

QSAM 

86 

SETL macro 


description 144-145 
relationship to 
ESETL macro 92 
GET macro 99 
use by access method 193 
SETPRT macro 

blocking/unblocking data checks 146 
execute form 161-163 
list form 159-160 

printing by print train or band 146 
reason codes for 3800 157 

return codes 152-156 
selecting UCS and FCB images 146 
standard form 146-158 
use by access method 193 
simple buffering 75 
skipping/ printer 

See also spacing/ printer 
CNTRL macro 27 
control characters 199-200 
SMSI operand (DCB macro) 41 
SMSW operand (DCB macro) 42 
space/ magnetic tape 
backward 11/ 27 
forward 27 
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spacing, printer 

See also skipping, printer 
CNTRL macro 27 
control characters 199-200 
specified in DCB macro 
BSAM 54 
QSAM 79 
spanned records 

See variable-length, spanned records 
STACK operand (DCB macro) 

BSAM 55, 57 
QSAM 80, 82 
stacker selection 

CNTRL macro 27-29 
control characters 199-200 
specified in DCB macro 
BSAM 55, 57 
QSAM 80, 82 
standard blocks 

restriction with OPTCD operand 88 
specifying 63, 88 

statistics reorganization (ISAM) 70 
status 

following an I/O operation 192 
STOW macro 

description 164-167 
directory action 165 
reason codes 165 
return codes 165-167 
use by access method 193 
switching volumes 
CHECK macro 19 
FEOV macro 93 
symbol defined 4 
SYNAD exit routine 
relationship with 
CHECK macro 19 
CNTRL macro 29 

DCB macro (see SYNAD operand) 1 
GET macro 99, 102 
POINT macro 124 
PUT macro 128, 130 
PUTX macro 131 
SETL macro 145 
SYNADAF macro 169 
specifying in DCB macro 
BDAM 37 
BISAM 42 
BPAM 48 
BSAM 64 
QISAM 72 
QSAM 89 

SYNAD operand (DCB macro) 

BDAM 37 
BISAM 42 
BPAM 48 
BSAM 64 
QISAM 72 
QSAM 89 
SYNAD routine 

relationship with PSF (Print Services 
Facility) 64 
SYNADAF macro 

description 168-169 

relationship with SYNADRLS macro 171 
return codes 169 
use by access method 193 
SYNADRLS macro 

description 171 

relationship with SYNADAF macro 168 
return codes 171 
use by access method 193 
SYNCDEV macro 172 


synchronizing I/O operations 19, 
178-179 

synchronous error exit 
See SYNAD operand 
SYSIN DD statement 
BSP macro 11 
CNTRL macro 27 
FEOV macro 93 
MACRF operand 60 
NOTE macro 111 
OPEN macro 112, 113 
OPTCD operand 61, 87 
PUTX macro 131 
RECFM operand 89 
RELSE macro 143 
SYSOUT DD statement 
BSP macro 11 
CNTRL macro 27 
FEOV macro 93 
MACRF operand 60 
NOTE macro 111 
OPEN macro 112, 113 
OPTCD operand 61, 87 
POINT macro 124 
PUTX macro 131 


m 


table reference character 
See TRC 

tape density, magnetic 
BSAM 54 
QSAM 79 

tape error recovery procedure 
BSAM 62 
QSAM 87 

tape recording technique 
BSAM 54 
QSAM 79 
temporary close 
of data set 21 
termination, abnormal 
check routine 19 
end-of-data 

See EODAD operand 
uncorrectable I/O error 
See SYNAD operand 

testing completion of I/O 19, 178-179 
testing for open data set 114-116 
totaling exit, user 
BSAM 59 

list format 197 
QSAM 84 

track addressing, relative 
BDAM 36 
FIND macro 94 
POINT macro 124 
track index write, full 70 
track overflow 
BDAM 36 
BPAM 47 
BSAM 63 
QSAM 88 
restrictions 

chained scheduling 47, 88 
with OPTCD operand 88 
translation 

ASCII to EBCDIC 
CHECK macro 19 
GET macro 100 
XLATE macro 191 
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EBCDIC to ASCII 
PUT macro 129 
WRITE macro 185 
XLATE macro 191 
paper tape code 54 
transmittal modes 

See also MACRF operand 
data 85, 101, 130 
locate 99, 100, 129 
move 99, 101, 127, 130 
specifying 69 

TRC (table reference character 
3800) 61, 86, 150 

TRTCH operand (DCB macro) 

BSAM 54 
QSAM 79 
TRUNC macro 

description 177 
specified in QSAM DCB 86 
use by access method 193 
truncating a block 177 
TYPE=P (GET macro) 102 
TYPE=T (CLOSE macro) 21-23 


| U | 


U-format records 
BDAM 36 
BPAM 48 
BSAM 63 
QSAM 88 

UCS (universal character set) 

unblocking data checks 61, 87 
UCS operand (SETPRT macro) 151 
unblocking data checks 
BSAM 61 
QSAM 87 

SETPRT macro 150 
uncorrectable I/O errors 
See SYNAD operand 
undefined length records 
See U-format records 
universal character set 
See UCS 

unmovable data sets 
See DSORG operand 
UPDAT operand 

OPEN macro 113, 123, 137 
restriction with POINT macro 123 
restriction with READ macro 137 
updating partitioned data set 
directory 164-165 
user 

data in partitioned data set 
directory 

BLDL macro 8-10 
STOW macro 164-165 
label exit 
BSAM 59 

list format 197 
QSAM 84 
totaling exit 
BSAM 59 

list format 197 
QSAM 84 

USING statement requirement 
DCBD macro 90-91 
PDABD macro 122 


1 v 1 


•format 

records 

BDAM 

36 

BPAM 

48 

BSAM 

63 

QISAM 

71 

QSAM 

88 

ilidi ty 

checking 

BDAM 

36 

BPAM 

47 

BSAM 

62 

QISAM 

70 

QSAM 

87 


variable-length record (format-V) 
See V-format records 
variable-length, spanned records 
See also V-format records 
restriction with 
FEOV macro 93 
GET macro 100 
OPTCD operand 61, 88 
using BFTEK 31, 50, 76 
using BUILDRCD macro 16 
using PUT macro 129 
writing for BDAM 186 
volume 

forcing end of 93 
volume positioning 
CHECK macro 19 
CLOSE macro 21-23 
FEOV macro 93 
OPEN macro 112 
POINT macro 123-124 
volume switching 19, 93 


H 

WAIT macro 

description 178-179 
relationship to 
CHECK macro 19 
MACRF operand 34 
READ macro 132, 135 
WRITE macro 180, 183 
use by access method 193 
work area 
for BISAM 

address of 42 
size of 42 
WRITE macro 

execute form 190 
list form 189 
relationship to 

BUFL operand 32 
CHECK macro 19 
KEYLEN operand 33 
LIMCT operand 34 
MACRF operand 34, 40, 46, 
NCP operand 41, 46, 60 
OPTCD operand 35 
POINT macro 123 
PRTOV macro 125 
READ macro 132, 135, 137 
RELEX macro 142 
SYNADAF macro 168 
WAIT macro 178 
return codes 188 
specified in DCB macro 


60 
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BDAM 34-36 
BISAM 40 
BPAM 46 
BSAM 59-60 
standard form 

BDAM (create with BSAM) 186-188 
BDAM (existing) 180-182 
BISAM 183-184 
BPAM 185 
BSAM 185 

testing for completion 19, 178-179 
use by access method 193 
HTOR macro 

relationship with SETPRT macro 149 


X 


XCTL macro 

relationship with BLDL macro 8 
XLATE macro 

use by access method 193 
use of 191 

XLRI (extended logical record interface) 
BUILDRCD macro 15 
GET macro 
use 

QSAM 85 


Numerics 


3480 magnetic tape subsystem 
record length 194 
3800 Model 3 printer 64, 146 
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